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I .  INTRODUCTION 


A.  THE  PROBLEM 

Since  World  War  II  the  presence  of  two  conflicting 
requirements  in  jnissile  sensor  design  has  forced  unsatis¬ 
factory  compromises  to  be  made  in  either  the  optical  system, 
airframe  or  both.  Examples  of  this  are  the  Sidewinder  air 
to  air  (AAM)  and  Chapparal  surface  to  air  (SAM)  missile. 

The  operational  requirements  are  simple:  from  a  "long" 
range,  fly  fast  enough  to  pursue  and  overtake  an  adversary, 
destroy  or  disable  the  adversary  and  perform  all  of  the 
guidance  and  tracking  functions  without  assistance  from  the 
firing  platform.  The  guidance  decisions  in  the  Sidewinder 
AAM  are  made  by  tracking  the  thermal  radiation  emitted  from 
enemy  aircraft.  The  radiation  enters  the  missile  optical 
system  via  a  hemispherical  dome  on  the  nose  of  the  missile. 

Long  range  and  high  speed  require  sleek,  low-drag  air¬ 
frames  and  efficient,  high  power  engines.  In  the  visible  or 
infrared,  accurate  measurement  of  the  line  of  sight  (LOS) 
from  the  missile  to  the  target  requires  optical  lenses  which 
routinely  come  in  the  shape  of  spheres.  Spheres  and  similar 
blunt  shapes  have  vary  high  drag  coefficients  compared  to 
conical  or  ogive  nose  shapes.  Thus  the  Sidewinder  and 
Chapparal  missiles  contain  excellent  optics,  yet  suffer  in 
range  and  operational  capability. 


The  targets  expected  to  be  encountered  in  surface  AAW  are 
the  Soviet  anti -ship  missiles  (ASM) .  These  weapons  have 
evolved  from  simple  straight  line  weapons  to  those  with  large 
warheads,  multiple  seekers  and  flight  profiles  which  sometimes 
require  operational  tracking  systems  to  perform  beyond  their 
design  limits. 

The  fleet  AAW  battle  doctrine  of  today  is  based  on  a 
"defense  in  depth”  concept.  According  to  this  concept  the 
E-2C/F-14/Phoenix  combat  system  will  be  the  first  unit  to 
engage  enemy  ASM,  hopefully  at  maximum  range.  The  next  units 
able  to  engage  the  ASM  at  extended  range,  assuming  the  target 
is  above  the  radar  horizon,  are  the  units  employing  the  SM-2 
(ER)  and  SM-1  (ER)  missiles.  While  within  the  SM-2/1  (ER) 
engagement  envelope,  the  SM-1  (MR)  missile  enters  the  engage¬ 
ment  at  medium  range.  Finally,  once  the  ASM  has  penetrated 
this  missile  cover,  the  defense  in  depth  concept  reduces  to 
a  "defend  each  unit,  especially  the  carrier"  concept.  In 
this  region  the  5"/54  gun  system,  Basic  Point  Defense  System, 
NATO  Sea  Sparrow  and  Phalanx  system  are  brought  to  bear. 

The  battle  group  could  conceivably  consist  of  an  aircraft 
carrier,  three  Aegis  cruisers,  two  SM-1  (ER)  cruisers,  two 
guided  missile  destroyers,  two  guided  missile  frigates,  two 
fast  frigates  and  three  destroyers;  or  a  total  of  fifteen 
units  not  including  logistics  ships.  The  capital  assets  for 
the  ships,  aircraft  and  equipment  are  in  the  tens  of  billions 
of  dollars  and  perhaps  10,000  men.  These  assets  demand 
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protection.  However ,  with  three  exceptions  the  AAW  combat 
systems  presently  in  the  fleet,  or  near  operational  status 
are  not  designed  to  engage  a  low-flying  ASM  in  a  timely 
manner.  The  exceptions  are  the  Aegis  cruiser,  NATO  Sea 
Sparrow  system  and  Phalanx  system;  even  with  these  three 
systems,  there  exists  a  gap  in  the  1-10  nautical  mile  range 
in  the  defense  in  depth  concept. 

A  possible  attack  scenario  is  with  the  battle  group 
steaming  in  an  AAW  formation  when  the  Soviet  commander 
launches  a  series  of  three  saturation  raids  of  ASM's  against 
the  battle  group.  The  second  and  third  raid  are  launched  to 
arrive  at  the  moment  when  the  U.S.  forces  are  totally  engaged 
with  the  previous  raid.  Hence,  the  second  and  third  raid 
will  substantially  penetrate  the  battle  group,  with  perhaps 
the  carrier  and  several  of  the  major  escorts  at  least  mission 
disabled.  The  Soviet  commander  can  now  operate  at  will. 

Two  factors  acre  critical  to  the  battle  group  commander: 
munition  assets  and  engagement  time.  Compared  to  the  number 
of  threats  in  a  saturation  attack,  the  battle  group's  missile 
assets  are  limited  in  number  with  limited  reload  capability. 
The  battle  group  commander ' s  gun  ammunition  assets  are  large, 
compared  to  the  available  missiles.  However,  with  the 
current  gun  systems  the  engagement  time  per  round  is  extreme¬ 
ly  long,  on  the  order  of  60  seconds.  If  the  gun  engagement 
time  could  be  reduced  by  a  factor  of  2,  then  each  gun  barrel 
could  be  twice  as  effective. 
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Unguided,  ballastic  projectiles  can  be  replaced  by  gun 
launched  missiles  (GLM) .  The  GLM  flying  at  Mach  3.0  can 
intercept  in  15  seconds  an  inbound  ASM  flying  at  Mach  1.0  at 
a  range  of  20,000  yards.  This  engagement  time  and  range  are 
superior  to  any  close-in  system  presently  in  the  fleet. 
Therefore  the  GLM  enhances  the  battle  group's  capability  to 
survive  a  raid  which  saturates  the  group's  long  range  combat 
systems.  The  GLM  is  not  designed  to  replace  any  existing 
systems  but  complement  them  by  providing  the  ability  to 
strike  out  and  defeat  the  enemy  in  the  region  from  1  to  10 
nautical  miles.  In  this  range  interval,  defense  capability 
presently  exists;  however,  the  magazine  capacity  is  limited. 
The  GLM  will  accomplish  the  ASMD  task  by  marrying  existing 
ramjet  technology  and  a  new  generation  of  missile  optics  to 
provide  a  missile  which  is  able  to  defeat  the  Soviet  ASM  at 
a  range  far  greater  than  is  realizable  with  today's  gun 
systems . 

This  thesis  involved  the  writing  of  and  the  application 
of  computer  algorithms  to  accomplish  the  following: 

1)  Compute  and  trace  monochromatic  light  rays  through 
a  conical  lens. 

2)  Compute  a  refracting  surface  to  focus  monochromatic 
light  rays  to  a  point  on  the  GLM  axis. 

3)  Apply  an  optimization  computer  algorithm  to  the  lens 
design  problem. 

4)  Apply  gradient  index  optics  (GRIN)  to  the  lens  design. 
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B.  ASSUMPTIONS  AND  SIGN  CONVENTION 

The  computer  algorithms  are  written  based  on  Snell's 
law  without  approximations.  All  rays  are  assumed  to  be 
transmitted  without  loss  of  energy  in  the  medium.  When 
total  internal  reflection  occurs,  the  ray  is  assumed  to 
stop  at  the  point  of  reflection.  The  algorithms  are 
written  to  provide  a  basic  understanding  of  the  optics 
involved.  Flexible  computer  programs  have  been  written 
with  the  capability  of  adding  ray  tracing  ability  by 
adding  subroutines. 

The  medium  ahead  of  the  GLM  is  assumed  to  be  air. 

Flying  at  Mach  3.0  the  GLM  will  produce  shock  waves  which 
will  act  like  a  refracting  surface  [1],  This  thesis  assumes 
the  air  to  be  homogenous,  isotropic,  linear,  time  indepen¬ 
dent  (HILT)  and  free  of  shock  waves  in  order  to  investigate 
the  fundamental  problem  of  designing  a  conical  lens.  The 
lens  medium  and  the  medium  after  the  lens  are  assumed  to 
be  composed  of  an  HILT  material  unless  otherwise  noted. 

The  sign  convention  used  is  a  right-handed  system  with 
distances  positive  to  the  right  and  up  as  seen  by  the  reader. 
All  angles  are  positive  for  a  counterclockwise  rotation  from 
the  horizontal  axis  to  the  point  in  question.  When  used  in 
derivation  of  geometrical  relationships,  the  absolute  values 
of  angles  are  used  in  all  trigonometric  expressions. 

All  linear  dimensions  are  inches  unless  otherwise  noted. 


II.  FIRST  SURFACE 

A  spiked  nose  used  as  a  ramjet  inlet  optimizes  the 
aerodynamic  qualities  yet  degrades  the  optical  qualities. 
Figure  1  [2]  illustrates  the  inability  in  the  past  of  a 
spiked  nose  to  focus  light  rays  while  a  sperical  lens 
accomplishes  an  excellent  focus.  Thus,  optimizing  the 
aerodynamic  qualities  degrades  the  optical  qualities  and 
vice  versa. 

Replacing  the  solid  propellant  rocket  motor  now  used 
on  most  missiles  with  a  ramjet  engine  further  complicates 
the  compromise  between  optical  quality  and  aerodynamic 
efficiency.  Replacing  the  rocket  with  an  air-breathing 
ramjet  is  motivated  by  fuel  economy  and  the  ability  to 
throttle  the  ramjet.  The  ability  to  throttle  allows  the 
missile  to  fly  a  thrust  equal  drag  trajectory.  This  type 
of  trajectory  results  in  a  vacuum-like  trajectory  with 
less  sensitivity  to  wind  and  a  marked  increase  in  maximum 
range  [3]. 

Ramjets  operate  with  inlets  configured  for  cruise 
performance  at  the  design  Mach  number.  The  configuration 
of  the  inlet  shown  in  figure  2  is  based  on  a  design  Mach 
number  of  3.0  [3].  The  spike  of  the  inlet  is  a  combination 
of  a  cone  and  curved  geometry  to  provide  high  pressure 
recovery  during  supersonic  operation  [3]. 
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The  inlet  spike  geometry  is  a  complex  surface  which 
further  complicates  the  task  of  the  lens  system  which  is 
to  form  an  image  of  the  target  on  the  GLM  axis.  The  inlet 
is  a  fluid  mechanical  device,  called  a  diffuser,  used  to 
decelerate  the  air  flow  to  a  subsonic  Mach  number.  The 
diffuser  converts  the  kinetic  energy  of  the  flow  into  an 
increase  in  pressure  of  the  air,  known  as  pressure  recovery, 
and  decelerates  the  flow  to  a  subsonic  Mach  number.  Diffusers 
are  required  because  the  combustion  of  fuel  is  more  efficient 
at  high  pressure  and  low  velocity. 

A  desirable  inlet  is  one  which  decelerates  the  flow  at 
constant  entropy,  produces  no  shocks,  creates  zero  drag 
exclusive  of  ram  drag,  and  is  insensitive  to  angle  of  attack. 
Inlets  which  operate  off  the  design  Mach  number  may  have 
additive  drag.  Additive  drag  is  the  sum  of  the  forces 
acting  along  the  streamline  A-B  shown  in  figure  3  [4],  The 
pressure  multiplied  by  the  area  of  the  streamtube  A-B  is  a 
force  which  is  in  a  direction  opposite  to  that  of  flight  and 
therefore  is  drag.  Examples  of  other  types  of  supersonic 
diffusers  are  shown  in  figures  4  and  5  [4]. 

The  marriage  of  missile  optics  and  a  controllable  engine 
promises  a  potent  weapon.  Preliminary  feasibility  studies 
have  shown  that  ramjet  engines,  control  systems,  guidance 
laws  and  warhead  designs  can  be  integrated  into  a  5"/54 
projectile  [2, 3, 5, 6].  The  optical  system  has  been  identified 
as  a  major  subsystem  which  requires  additional  investigation. 


Specifically,  the  lens,  which  is  required  to  focus  the  image 
of  the  target,  is  the  stumbling  block,  to  an  efficient  ramjet 
design.  A  blunt  nose  cannot  be  used  because  of  poor  pressure 
recovery  and  large  additive  drag.  Therefore,  some  type  of 
an  inlet  using  a  spike  must  be  used.  The  spike  must  also  be 
a  lens  capable  of  forming  an  image  on  the  GLM  axis.  The  lens 
must  have  a  large  enough  aperture  and  field  of  view  to  provide 
the  GLM  with  sufficient  data  to  maintain  and  accurately 
measure  the  line  of  sight. 

This  thesis  is  based  on  an  inlet  design  by  Brown  [3] 
using  data  from  Faro  [7]  shown  in  figure  2.  The  inlet  is  a 
15°  conical  tip,  axisymmetric,  isen tropic  spike  for  a  design 
Mach  number  of  3.0.  The  spike  studied  in  the  thesis  is  a 
cone  having  approximately  the  same  length-to-diameter  ratio 
as  the  inlet  in  figure  2  [3].  Hence,  the  first  optical 
surface  used  for  ray  tracing  is  a  cone  with  a  21°  half-angle. 


III.  SECOND  SURFACE  GENERATION:  DIRECT  SOLUTION 


The  direct  solution  to  designing  a  conical  lens  consists 
of  solving  Snell's  Law  at  a  point  T  shown  in  figures  6  and  7 
along  the  refracted  ray  within  the  lens.  Point  T  is  located 
below  the  line  QP  in  figure  6.  When  T  is  in  this  position 
relative  to  QP,  the  geometry  is  referred  to  as  the  low  region. 
When  T  is  in  the  position  shown  in  figure  7,  the  geometry  is 
referred  to  as  the  high  region.  When  T  is  on  the  line  QP, 
i.e.  pi  *  6,  the  low  region  geometry  is  assumed. 

The  following  discussion  is  the  derivation  of  expressions 
for  p  2 ,  the  angle  with  respect  to  the  GLM  axis  of  the  ray 
refracted  at  T  which  passes  through  the  design  focal  point 
P,  and  a z,  the  angle  which  the  tangent  line  at  T  makes  with 
respect  to  the  GLM  axis.  The  derivation  will  only  discuss  the 
low  region,  because  the  procedure  for  the  high  region  is 
identical  and  only  the  results  for  the  high  region  will  be 
given.  The  magnitude  of  a  line  segment  is  shown  by  stating 
the  endpoints  of  the  line  segment  in  uppercase  letters  or  by 
a  single  lower  case  letter. 

Let  QP »£,  QT*s  and  OP«f;  then  according  to  the  law 
of  sines  sina/£  -  (sin(ir-[a+ 1  8 1  ])  )/f .  This  relation 
simplifies  to 

,  f  sina  (1) 

sinCa+| $ | ) 


Surfoct 


Next,  note  that 

RT  -  s  ain  ( |  p  1 1  -  |  8 1 ) 

and 

RT  -  (PQ-QR) tan ( j  8  |  - 1  p  2  j ) 

Now  PQ-QR»£-s  cos( I  pi | -| 81 1) .  Substituting  this  into 
equation  (3)  and  solving  for  tan( | 8 | - | p2 | )  yields 

s  sin  ( | P 1 | — | 0 | ) 


(2) 

(3) 


tan  ( |  8  |  - 1 P  2 1 )  = 


f  sina 


-  s  cos( | Pi |-| 6|) 


(4) 


sin(a+|8|) 

Consequently  the  formula  for  )p2|  becomes  jB|  -  arctan{}. 
Using  equation  (4),  pi,  the  angle  with  respect  to  the  GLM 
axis  of  the  ray  refracted  at  Q,  apply  Snell's  Law  at  T. 

Thus,  referring  to  figure  6 

n- 


sin0. 


n. 


sinQ, 


n23sin0I 


(5) 


,R  | norm | - 1 p 2 1  and  *  |norm|-|p2|. 


where  9j 

Substituting  these  expressions  into  equation  (5)  yields  a 
relation  involving  the  sine  of  two  angles.  Expanding  the 
sine  expressions  and  solving  for  tan  j  NORM |  yields 


tan  NORM 


sin 

P  2  | 

-  n23sin| pi |  j 

cos 

P  2  | 

-  n23cos| pi | ) 

(6) 


and  | NORM |  *  arctan{  }.  Equation  (6)  must  be  greater  than 
or  equal  to  zero  for  the  expression  to  be  valid.  Then 

c*2  -  J  -  |NORM|  (7) 
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The  result  of  the  derivation  for  the  high  region  yields 


tan ( I p  2  I  - 1  3  I )  ■ 


s  sinC  I  8  I  -  I  Pi  I) 


since 


sin  (a+  8  I) 


-  s  cos ( | 8 |- 1  Pi  I) 


(8) 


tan  NORM 


n23  sin | pi 


-  sin  pi 


»23  COS | Pi  |  -  COS  I p  2  S 


(9) 


and  solving  for  a2  gives 


a2 


-  NORM 


CIO) 


Therefore,  a2  is  a  complicated  relationship  involving 
incident  ray  position,  denoted  by  8,  cone  half  angle  a, 
design  focal  point  P,  the  refractive  indices  n^,  n2,  and  n3 
and  position  s  along  the  ray  within  the  lens.  In  order  for 
a  systematic  study  to  be  conducted,  the  parameters  a,  f, 
n^,  n2  and  n3  are  assigned  specific  values.  The  parameter 
8  is  determined  by  the  position  of  point  Q  on  the  first 
surface.  The  angle  of  Pi,  is  determined  by  the  incident 
ray  angle  with  respect  to  the  first  surface,  n^,  and  n2« 
Therefore,  with  the  values  for  the  parameters,  either  fixed 
or  calculated,  a  design  chart  relating  a2  with  the  position 
along  the  ray  in  the  lens  s  shown  in  figure  8  can  be 
generated.  The  numbered  curves  correspond  to  numbered  rays 
entering  the  lens.  The  rays  are  numbered  consecutively 
beginning  with  the  one  nearest  the  GLM  axis. 
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The  actual  design  process  involves  selecting  a  starting 

point,  Tl,  on  a  given  ray  and  noting  the  magnitude  of 

as  shown  in  figure  9.  With  that  value  of  s^,  enter  the 

design  chart  in  figure  8  and  read  the  value  of  from 

curve  number  1.  Returning  to  figure  9  extend  a  line  from  Tl 

using  a2  until  that  line  intercepts  the  next  ray  at  T2. 

Measure  the  value  of  s2  and  enter  figure  8  to  obtain  the 

value  of  a2  from  curve  number  2.  Return  to  figure  9  and 
2 

extend  a  line  from  T2  to  intercept  the  next  ray,  etc.  This 
process  continues  until  all  of  the  rays  are  intercepted  or 
the  first  surface  is  intercepted.  Once  the  intercept  point 
T  and  the  angle  of  the  tangent  line  ct2  is  known,  the  ray 
can  be  refracted  at  T.  Equations  (4)  and  (7)  for  the  low 
region  and  equations  (8)  and  (10)  for  the  high  region 
accomplish  the  refraction.  The  result  of  each  refraction  by 
design  result  in  a  refracted  ray  through  the  focal  point  P 
as  shown  in  f igure  10 . 

The  design  procedure  does  not  produce  a  single  surface 
which  can  be  used  to  refract  light  through  the  focal  point. 
The  surface  designed  depends  on  which  ray  was  chosen  as  the 
initial  ray  and  the  value  of  s  along  that  ray  where  Tl 
is  positioned.  Thus,  a  small  family  of  surfaces  illustrated 
in  figure  11  can  easily  be  calculated  to  provide  a  choice  of 
lens  second  surfaces  to  the  optical  engineer. 

The  lens  designer  must  choose  from  the  family  of  second 
surfaces  generated  by  the  design  procedure.  In  order  for  a 
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Figure 


consistent  set  of  decisions  to  be  made  a  set  of  design  crite¬ 
ria  for  this  thesis  are: 

1)  that  the  lens  must  be  as  thin  as  possible. 

2)  that  the  lens  have  as  large  an  aperture  as  possible. 
The  aperture  is  defined  to  be  the  difference  in 
radius  between  the  maximum  and  minimum  radii  from 
the  GLM  axis  at  which  light  rays  enter  the  lens  and 
are  refracted  through  the  focal  point. 

3)  that  the  focal  length  to  diameter  ratio,  f/d,  is 
a  minimum  and  in  no  case  greater  them  4. 

Using  the  stated  design  criteria,  surface  number  1  in 
figure  11  is  the  logical  choice  because  it  is  the  thinnest 
and  has  the  maximum  aperture  of  the  5  surfaces  provided. 

All  of  the  surfaces  have  the  same  f/d  ratio  of  2.73. 

Each  member  of  the  family  of  surfaces  is  generated  by 
using  straight  lines.  Since  a  real  surface  will  not  be  a 
series  of  flat  surfaces  but  a  smooth  continuous  surface  with 
no  discontinuities,  an  inherent  error  exists  in  the  design. 
The  error  can  be  reduced  substantially  by  using  a  large 
number  of  rays  to  provide  a  large  number  of  line  segments 
to  approximate  a  continuous  surface.  The  designer  must  now 
choose  the  number  of  rays  to  be  used,  repeat  the  design 
process  and  generate  the  design  chart  for  the  final  lens 
design  using,  for  example,  26  rays  in  figure  12.  Using 
figure  12,  the  designer  calculates  the  final  lens  design 
in  figure  13  beginning  with  the  starting  point  which  is  the 
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end  of  a  curve  number  1  in  figure  12.  Thus  T1  is  near 
the  GLM  axis  and  a2  m  21°. 

A  ray  diagram  shown  in  figure  14  illustrates  the  paths 
of  the  light  rays  through  the  lens  generated  using  the 
design  chart  in  figure  12.  A  histogram  showing  the  distri¬ 
bution  of  light  rays  on  the  image  plane  reveals  that  the 
light  rays  do  pass  through  one  design  focal  point  plus  or 
minus  an  ha If -increment  width.  The  width  of  an  increment 
is  defined  as  the  maximum  radius  of  the  GLM  divided  by  the 
desired  number  of  intervals.  For  example,  if  the  maximum 
radius  of  the  GLM  is  1.1  inch  and  100  intervals  from  the 
GLM  axis  to  a  radius  of  1.1  inch  then  the  increment  width 
is  0.011  inch.  In  order  to  position  an  interval  on  the 
origin,  an  increment  is  centered  on  the  origin.  The  effect 
of  this  operation  is  to  add  a  half -increment  at  the  maximum 
value  of  the  radius.  Therefore,  for  the  entire  GLM  a  total 
of  2  x  100  +1-201  increments  are  used  to  generate  a 
histogram.  The  fact  that  all  of  the  rays  intersect  the 
focal  point  shows  the  calculations  are  correct  for  this 
particular  lens. 

An  automated  computer  algorithm,  CHART,  has  been  written 
to  construct  a  design  chart  and  calculate  a  family  of  sur¬ 
faces  from  that  design  chart.  CHART  waits  until  the  operator 
chooses  a  particular  surface  from  the  presentation  and  the 
number  of  rays  desired  to  calculate  a  final  surface.  Next, 
CHART  will  compute  the  final  surface  and  present  it  to  the 
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operator.  The  operator  can  choose  to  stop  or  draw  a  ray 
diagram  to  show  the  effectiveness  of  the  design.  If  the  ray 
diagram  is  chosen  a  histogram  of  ray  distribution  on  the 
image  plane  is  presented  to  the  operator.  If  the  operator 
wants  to  design  a  lens  using  another  surface,  the  entire 
procedure  must  be  repeated. 

The  following  figures  are  a  sample  run  of  CHART  to  design 
a  lens.  Tables  containing  the  initial  parameter  values  and 
calculated  data  are  located  in  Appendix  A.  The  design  chart 
in  figure  16  was  generated  using  the  initial  parameter  infor¬ 
mation  in  Table  A-II.  The  faultily  of  second  surfaces  in 
figures  18  and  19  were  calculated  using  the  end  of  each 
numbered  curve  in  figure  16  as  the  starting  point  Tl  for 
each  numbered  second  surface  in  figures  17  and  18.  The 
information  used  to  draw  figures  17  and  18  is  in  Table  A-III. 
The  rays  shown  in  figure  18  were  used  to  generate  the  design 
chart  and  family  of  second  surfaces  figures  17  and  18.  The 
maximum  length  of  a  ray  in  the  lens  is  defined  as  QA,  the 
distance  from  the  intercept  of  the  incident  ray  and  the 
first  surface  to  the  GLM  axis.  The  calculated  information 
used  to  draw  the  family  of  second  surfaces  in  figures  17  and 
18  is  found  in  Table  A-IV.  A  comparison  of  QA  and  the  value 
of  s  used  as  the  starting  point  Tl  for  each  family, 
s _ is  found  in  Table  A-V. 


Surface  number  1  was  chosen  because  the  surface  satis¬ 
fied  all  of  the  design  criteria.  The  final  design  chart 
shown  in  figure  19  was  generated  using  26  rays.  The  number 
of  rays  actually  entered  into  the  computer  was  25 ,  CHART 
then  calculates  the  aperture  of  the  lens  using  the  chosen 
surface.  If  the  lower  limit  of  the  aperture  is  not  the  GLM 
axis,  CHART  adds  one  ray  to  the  number  entered  to  use  as 
the  starting  ray.  This  method  insure  a  ray  will  be  drawn 
at  the  maximum  and  minimum  boundaries  of  the  aperture.  The 
calculated  data  used  to  generate  the  design  chart  in  figure 
19  is  listed  in  Table  A-VI. 

The  final  lens  design  shown  in  figure  20  consists  of  a 
surface  defined  by  26  points  rather  than  10  with  the  initial 
design.  The  coordinate  values  for  the  final  surface  are 
found  in  Table  A-vil .  The  refinement  of  the  surface  obtained 
by  using  26  rays  is  illustrated  by  comparing  the  end  points 
of  the  surfaces  listed  in  Tables  A-VTI  and  A-IV.  The  changes 
in  x,  y  are  (-0.009,  0.013)  inch.  The  change  in  s  is 
(-0.016)  inch.  Hence,  the  lens  designer  should  be  aware 
of  the  tendency  of  the  final  surface  to  move  towards  the 
first  surface,  possibly  resulting  in  the  design  surface 
intercepting  the  first  surface  prior  to  the  GLM  wall  at  the 
maximum  radius  from  the  axis.  This  effect  results  in  a 
decrease  in  aperture,  a  violation  of  the  design  criteria. 

The  final  design  surface  is  then  drawn  within  an  outline 
of  the  GLM  shown  in  figure  21  illustrating  the  symmetry  of 
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Figure  21.  Final  Lens  Design  Illustrating  the  Symmetry 
Position  of  the  Lens  in  the  GLM. 


the  design  and  the  location  of  the  lens  within  the  missile. 
A  ray  diagram  using  the  final  lens  design  shown  in  figure 
22  with  the  distribution  of  the  rays  on  the  image  plane 
shown  in  figure  23.  The  coordinate  values  used  to  draw  the 
ray  diagram  in  figure  22  are  listed  in  Table  A-VIII. 


(  saqoui  )  * i  xy  am  uoj j  asua  vaig  tajpay 


Figure  22.  Hay  Diagram  Showing  the  Trajectories  of  the 
Light  Rays  Through  the  Final  Lens  Design. 
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IV.  RECOMMENDATIONS  FOR  FUTURE  WORK 


This  thesis  investigated  part  of  the  properties  of  a 
conical  lens.  Future  studies  should  investigate: 

a)  the  effect  of  skew  rays  on  the  image. 

b)  the  effect  of  total  internal  reflection  on  the  image. 

c)  the  calculation  of  monochromatic  and  chromatic 
aberrations  for  the  conical  lens. 

d)  the  availability  and  applicability  of  materials  to 
use  for  a  lens. 

e)  the  effect  on  the  incident  rays  of  the  shock  wave 
in  the  air  ahead  of  the  GLM. 

f)  the  effect  on  the  image  of  an  object  not  on  the 
lens  axis. 

g)  the  effect  on  the  image  when  the  object  is  no 
longer  in  the  far  field  and  the  curvature  of  the 
ray  front  must  be  taken  into  account. 

h)  the  ability  of  a  conical  lens  to  focus  coherent 
and  incoherent  light. 


O 
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V.  CONCLUSIONS 


The  completed  design  of  figure  22  indicates  that  a 
conical  lens  can  focus  incident  light  which  is  parallel 
to  the  GLM  axis.  The  conical  lens  design  is  compatible 
with  the  aerodynamic  requirements  of  high  pressure 
recovery  and  low  drag.  The  ability  to  provide  optical 
guidance  information  to  the  GLM  powered  by  an  integral 
rocket  ramjet  may  provide  the  battle  group  commander 
with  an  inexpensive  ASMD  weapon  for  shipboard  use. 
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APPENDIX  A 


CHART  SAMPLE  OUTPUT  AND  PROGRAM  LISTING 

This  appendix  contains  the  program  listing  for  CHART. 

The  subroutines  listed  in  Table  A-I  were  copied  or  derived 
from  the  HP-9845  utilities  library,  cassette  number  2, 

Ser.  No.  09845-10205,  program  REGPLT. 

Subroutines  DRIVER,  POLYNOMIAL  and  PLOT-CUBIC  are  not 
imp lamented  in  the  present  version  of  CHART  because  of  time 
constraints.  They  are  designed  to  be  used  to  fit  a  poly¬ 
nomial  of  degree  3,  a  cubic,  between  four  points  to  estimate 
the  shape  of  the  second  surface.  The  requirement  to  fit  a 
curve  stems  from  the  fact  that  the  trajectory  of  a  ray  cannot 
be  calculated  if  the  ray  does  not  coincide  with  a  known  ray 
trajectory.  Hence,  two  options  are  open.  The  first  is  to 
calculate  an  infinite  number  of  points  on  the  second  surface 
which  is  not  practical.  The  second  option  is  to  estimate  the 
actual  shape  of  the  second  surface  with  am  analytic  expression, 
a  cubic  in  this  application.  The  error  of  the  estimate  can 
be  reduced  by  designing  a  second  surface  with  a  large  number 
of  points.  CHART  has  been  written  to  design  a  lens  with  a 
maximum  number  of  250  points. 

CHART,  as  implemented  on  the  HP-9845T  is  a  slow  program. 

The  design  procedure  described  in  chapter  III  requires 
approximately  fifteen  minutes  for  an  experienced  operator. 
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TABLE  A-I 


SUBROUTINES  DERIVED  FROM  THE  HP-9845B  UTILITIES  LIBRARY 


Name 

Plot 

Laxes 

Driver 

Polynomial 

Plot-Cubic 

Min 


Line  Number 
3710 
5280 
13910 
14400 
14910 
21040 


Max 


21160 


TABLE  A-ZI 


INITIAL  PARAMCTtR  VALUt* 


Alpha  *  21. M  dtgrm 

TAN< Alpha)  -  .2* 

Rho-tnltlal  »  9.00 

TAMCRHO-INITIAL)  •  0.00 

AH01  •  -33.30  dagraas 

ThataCer i t i cal  >  •  14.40  dagraas 

CL A  Radius  ■  1.1*  inch** 

Apartura  •  1.19  Ya  • 

0.00  inch 

Yb  •  1.10  inchas 

nl  ■  1 .  >HM 

n2  ■ 

4.00000 

n3  1.00000 

Nuabar  of  Rays  ■  It 

Dasign  Focal  Point  •  4 

.99 

1 nchas 

TABLE  A-III 


CALCULATED  DATA  USED  TO  CONSTRUCT  THE  DESIGN 
CHART  IN  FIGURE  16. 


THETA < RAY)  NORMAL 


-1.69? 

13.317 

-68.828 

8.808 

21.100 

-1.697 

-1.69? 

13.326 

-68.829 

.887 

21. 171 

-1.614 

-1.697 

13.335 

-68.333 

.013 

21.162 

-l . 330 

-1.69? 

13.344 

-68.847 

.820 

21.133 

-1.447 

-1.697 

13.354 

-68.356 

.027 

21.144 

- 1  • 363 

-1.697 

13.363 

-68.366 

.033 

21.134 

-1.27* 

-1.69? 

13.372 

-68.875 

.040 

21.125 

-1 . 195 

-1.697 

13.391 

-68.384 

.047 

21.116 

-1. 1 1 1 

-1.697 

13.399 

-68.893 

.853 

21.107 

-1.027 

-1.697 

13.399 

-68.982 

.860 

21.099 

-.  942 

-1.69? 

13.408 

-68.911 

.067 

21.889 

— .  837 

-1.697 

13.417 

-68.928 

,073 

21.980 

772 

-1.69? 

13.426 

-68.929 

.080 

21.071 

— .  687 

-1.697 

13.435 

-68.938 

.087 

21.062 

-.602 

-1.697 

13.444 

-68.947 

.993 

21.033 

-.317 

-1.697 

13.453 

-68.956 

.  100 

21.044 

-.431 

-1.697 

13.462 

-68.963 

.107 

21.033 

-.345 

-1.697 

13.471 

-68. 974 

.113 

21.026 

-.23? 

-l;697 

13.479 

-68.982 

.  120 

21.018 

-.  173 

-1.69? 

13.409 

-68.991 

.127 

21.009 

-.087 

-1.697 

13.479 

-68.982 

.  120 

21.018 

173 

-1.697 

13.490 

-68.993 

.121 

21.017 

-.  164 

-1.697 

13.481 

-68.994 

.  121 

21.016 

-.  136 

-1.697 

13.482 

-68.983 

.  122 

21.015 

-.14? 

-1.697 

13.483 

-68.986 

.  123 

21.914 

-.  138 

-1.69? 

13.484 

-68.987 

.123 

21.013 

—  .1 30 

-1.697 

13.485 

-68.998 

.124 

21.012 

-.  121 

-1.69? 

13.486 

-68.989 

.125 

21.011 

-.  112 

-1.697 

13.486 

-68.989 

.  123 

21.011 

-.  104 

-1.697 

13.487 

-68.999 

.126 

21.010 

-.093 

-1.697 

13.489 

-69.991 

.  127 

21.099 

—  a  087 

-1.697 

13.489 

-69.992 

.  127 

21.088 

-.078 

-1.697 

13.498 

-69.993 

.128 

21.007 

-.069 

-1.697 

13.491 

-60. 994 

.129 

21.006 

-.061 

-1.697 

13.492 

-69.995 

.  129 

21.005 

-.032 

-1.697 

13.493 

-69.996 

.  139 

21.994 

-.043 

-1.697 

13.494 

-69.996 

.  131 

21.994 

-.033 

-1.697 

13.494 

-68.997 

.131 

.1.993 

-.026 

-1.697 

13.495 

-68.998 

.  132 

21.092 

-.017 

-1.69? 

13.496 

-69.999 

.133 

21.991 

-.009 

-1.697 

13.495 

-68.998 

.132 

21.002 

-.017 

-1.697 

13.495 

-68.999 

.132 

21.992 

-.016 

-1.69? 

13.495 

•69.998 

.  132 

21.902 

-.016 

-1.69? 

13.496 

-68.999 

.  132 

21.091 

-.013 

-1.697 

13.496 

-68.999 

.132 

21.991 

-.014 

-1.69? 

13.496 

-68.999 

.  132 

21.001 

-.013 

€ 

TABLE  A-III  (CONT) 
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RAY  BETA  THETA<RAY>  NORMAL  3  ALPHAS  RHO  2 


t  -1.637  13.436 
1  -1.637  13.436 
1  -1.637  13.436 
1  -1.637  13.436 
1  -1.637  13,436 
1  -1.637  13.436 
1  -1.637  13.436 
1  -1.637  13.436 
l  -1.637  13.437 
1  -1.637  13.437 
1  -1.637  13.437 
1  -1.637  13.437 
1  -1.637  13.437 
1  -1.637  13.437 
1  -1.637  13.437 
1  -1.637  13.437 
1  -1.637  13.437 
1  -1.637  13.437 
1  -1.637  13.437 
1  -1.637  13.437 
1  -1.637  13.437 
1  -1.637  13.437 
1  -1.637  13.437 
1  -1.637  13.437 
1  -1.637  13.437 
1  -1.637  13.437 
1  -1.637  13.437 
1  -1.637  13.437 
1  -1.637  13.437 
1  -1.637  13.437 
1  -1.637  13.437 
1  -1.637  13.437 
1  -1.637  13.437 

1  -1.637  13.437 

2  -3.673  13.987 
2  -3.673  13.198 
2  -3.673  13.123 
2  -3.673  13.139 
2  -3.673  13.171 
2  -3.673  13.132 
2  -3.673  13.213 
2  -3.673  13.234 
2  -3.673  13.233 
2  -3.673  13.276 
2  -3.673  13.236 


-68.999 

.  133 

21.001 

-68.999 

.  133 

21.001 

-68.999 

.  133 

21.001 

-68.999 

.  133 

21.091 

-68.999 

.  133 

21.001 

-68.999 

.  133 

21.001 

-68.999 

.  133 

21.001 

-69.999 

.  133 

21.001 

-68.999 

.  133 

21.001 

-69.000 

.133 

21.000 

-69.008 

.  133 

21.000 

-69.000 

.133 

21.000 

-69.000 

.133 

21.000 

-69.000 

.  133 

21.000 

-69.000 

.133 

21.000 

-69.000 

.  133 

21.000 

-69.000 

.133 

21.000 

-69.000 

.  133 

21.000 

-69.000 

.  133 

21.000 

-69.000 

.  133 

21.000 

-69.000 

.  133 

21.000 

-69.000 

.133 

21.000 

-69.000 

.  133 

21.000 

-69.000 

.  133 

21.000 

-69.000 

.133 

21.000 

-69.000 

.  133 

21.000 

-69.000 

.  133 

21.000 

-69.000 

.133 

21.000 

-69.900 

.133 

21.000 

-69.000 

.  133 

21.000 

-69.000 

.  133 

21.009 

-69.000 

.  133 

21.000 

-69.000 

.  133 

21.000 

-69.000 

.  133 

21.000 

-68.389 

0.000 

21.411 

-68.611 

.013 

21.389 

-68.632 

.927 

21.368 

-68.633 

.040 

21.347 

-60.674 

.053 

21.326 

-68.493 

.067 

21.305 

-68.716 

.980 

21.204 

-68.737 

.093 

21.263 

-68.758 

.107 

21.242 

-68.779 

.  129 

21.221 

-60.799 

.133 

21.201 

-.912 
-.01  1 
-.010 


-.010  < 

-.093 

-.008  ; 

- .  007 

-.006 

-.005  i 

-.004  i 

-.003  \ 

-.003  1 

- . 002  , 

-.001 

-.092  i 

-.092  > 


-.002 

-.001 

-.001 

-.001 

-.001 

-.001 

-.091 

-.001 

-.001 

-.001 

-.001 

-.001 

-.001 

-.000 

-.000 

-.000 


-.000  i 

-.900  « 

i 

-3.673  ? 

-3.430  i 

•  -3.321  * 


-3. 144 
-2.966 
-2.787 
-2.699 
-2.427 
-2.243 
-2.063 
-1.880 
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TABLE  A-III  (CONT) 


RAY 

*€TA 

THETA < RAY) 

NORMAL 

S 

ALRHA2 

RHO  2 

2 

-3.673 

13.317 

-68.828 

.147 

21.188 

-1.696 

2 

-3.673 

13.337 

-68.840 

.168 

21.160 

-1.511 

2 

-3.673 

13.358 

-68.861 

.  174 

21.139 

-1.323 

2 

-3.673 

13.378 

-63.881 

.  187 

21.119 

-1.139 

2 

-3.673 

13.398 

-68.901 

.288 

21.099 

-.931 

2 

-3.673 

13.418 

-68.921 

.214 

21.079 

-.763 

2 

-3.673 

13.438 

-68.941 

.227 

21.899 

-.573 

2 

-3.673 

13.458 

-68.961 

.248 

21.039 

-.383 

2 

-3.673 

13.477 

-68.980 

.234 

21.920 

-.  192 

2 

-3.673 

13.458 

-68.961 

.248 

21.039 

-.383 

2 

-3.673 

13.460 

-68.963 

.242 

21.037 

-.364 

2 

-3.673 

13.462 

-68.963 

.243 

21.039 

-.343 

2 

-3.673 

13.464 

-68.967 

.244 

21.033 

-.326 

2 

-3.673 

13.466 

-68.969 

.246 

21.031 

-.307 

2 

-3.673 

13.468 

-68.971 

.247 

21.829 

-.238 

2- 

-3.673 

13.470 

-68.973 

.248 

21.027 

-.263 

2 

-3.673 

13.472 

-68.973 

.238 

21.829 

-.249 

2 

-3.673 

13.474 

-68.976 

.291 

21.024 

-.230 

2 

-3.673 

13.473 

-68.978 

.292 

21.022 

-.211 

2 

-3.673 

13.477 

-68.900 

.294 

21.020 

-.  192 

2 

-3.673 

13.479 

-68. 982 

.295 

21.018 

-.173 

2 

-3.673 

13.481 

-68.984 

.296 

21.016 

-.  134 

2 

-3.673 

13.483 

-68.986 

.298 

21.014 

-.  134 

2 

-3.673 

13.483 

-68.988 

.299 

21.012 

-.113 

2 

-3.673 

13.487 

-68.998 

.268 

21.010 

-.096 

2 

-3.673 

13.489 

-68.992 

.262 

21.008 

-.077 

2 

-3.673 

13.491 

-68.994 

.263 

21.006 

-.038 

2 

-3.673 

13.493 

-68.996 

.264 

21.004 

-.033 

2 

-3.673 

13.493 

-68.998 

.266 

21.002 

-.019 

2 

-3.673 

13.493 

-68.996 

.264 

21.804 

-.038 

2 

-3.673 

13.493 

-68.996 

.264 

21.004 

-.037 

2 

-3.673 

13.494 

-68.996 

.269 

21.004 

-.033 

2 

-3.673 

13.494 

-68.997 

.269 

21.003 

-.033 

2 

-3.673 

13.494 

-68.997 

.269 

21.083 

-.031 

2 

-3.673 

13.494 

-68.997 

.269 

21.883 

-.029 

2 

-3.673 

13.494 

-68.997 

.269 

21.883 

-.027 

2 

-3.673 

13.494 

-68.997 

.269 

21.883 

-.023 

2 

-3.673 

13.493 

-68.998 

.269 

21.882 

-.023 

2 

-3.673 

13.493 

-68.998 

.269 

21.082 

-.021 

2 

-3.673 

13.493 

-68.998 

.266 

21.882 

-.019 

2 

-3.673 

13.493 

-68.998 

.266 

21.882 

-.017 

2 

-3.673 

13.493 

-68.998 

.266 

21.882 

-.013 

2 

-3.673 

13.496 

-68.999 

.266 

21.081 

-.013 

2 

-3.673 

13.496 

-68.999 

.266 

21.881 

-.012 

2 

-3.673 

13.496 

-68.999 

.266 

21.981 

-.010 

2 

-3.673 

13.496 

-68.999 

.266 

21.081 

-.008 
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TABLE  A-III  (CONT) 


RAY 

■ETA 

TNSTA<RAY> 

NORMAL 

S  ' 

ALAHA2 

RHO  2 

2 

-3.673 

13.496 

-68.999 

.26? 

21.991 

-.996 

2 

-3.673 

13.497 

-69.899 

.267 

21.888 

-.884 

2 

-3.673 

13.497 

-69.999 

.26? 

21.998 

-.982 

2 

-3.673 

13.497 

-69. 898 

.26? 

21.999 

-.884 

2 

-3.673 

13.497 

-69.999 

.267 

21.999 

-.984 

2 

-3.673 

13.497 

-69.999 

.267 

21.998 

-.883 

2 

-3.673 

13.497 

-69.999 

.26? 

21.989 

-.883 

2 

-3.673 

13.497 

-69.998 

.267 

21.999 

-.903 

2 

-3.673 

13.497 

-69.999 

.26? 

21.999 

-.883 

2 

-3.673 

13.497 

-69.999 

.26? 

21.898 

-.803 

2 

-3.673 

13.497 

-69.999 

.267 

21.999 

-.903 

2 

-3.673 

13.497 

-69.999 

.267 

21.899 

-.802 

2 

-3.673 

13.497 

-69.999 

.267 

21.899 

-.992 

2 

-3.673 

13.497 

-69.989 

.267 

21.898 

-.082 

2 

-3.673 

13.497 

-69.899 

.267 

21.999 

-.092 

2 

-3.673 

13.497 

-69. 999 

.267 

21.989 

-.082 

2 

-3.673 

13.497 

-69.969 

.267 

21.898 

-.001 

2 

-3.673 

13.497 

-69.999 

.267 

21.999 

-.001 

2 

-3.673 

13.497 

-69.999 

.267 

21.899 

-.001 

2 

-3.673 

13.497 

-69.999 

.267 

21.889 

-.881 

2 

-3.673 

13.497 

-69.999 

.267 

21.988 

-.081 

2 

-3.673 

13.497 

-69. 999 

.267 

21.999 

-.000 

2 

-3.673 

13.497 

-69.899 

.267 

21.899 

-.000 

2 

-3.673 

13.497 

-69.999 

.267 

2t.889 

-.000 

2 

-3.673 

13.497 

-69.999 

.267 

21.899 

-.000 

2 

-3.673 

13.497 

-69.989 

.267 

21.988 

-.000 

2 

-3.673 

13.497 

-69.999 

.267 

21.998 

-.900 

2 

-3.673 

13.497 

-69.999 

.267 

21.999 

-.000 

2 

-3.673 

13.497 

-69.999 

.267 

21.899 

-.000 

2 

-3.673 

13.497 

-69.998 

.267 

21.999 

-.090 

2 

-3.673 

13.497 

-69.999 

.267 

21.899 

-.900 

2 

-3.673 

13.497 

-69.999 

.267 

21.889 

-.009 

2 

-3.673 

13.497 

-69.999 

.267 

21.888 

-.000 

2 

-3.673 

13.497 

-69.999 

.26? 

21.999 

-.900 

2 

-3.673 

13.497 

-69.999 

.26? 

21.998 

-.009 

2 

-3.673 

13.497 

-69.899 

.26? 

21.999 

-.000 

2 

-3.673 

13.497 

•69.999 

.26? 

21.998 

-.009 

2 

-3.673 

13.497 

-69.999 

.26? 

21.999 

’  -.000 

2 

-3.673 

13.497 

-69.999 

.26? 

21.998 

-.909 

2 

-3.673 

13.497 

-69.999 

.26? 

21.899 

-.009 

2 

-3.673 

13.497 

-69.999 

.26? 

21.988 

-.000 

2 

-3.673 

13.497 

-69.999 

.26? 

21.999 

-.090 

2 

-3.673 

13.497 

-69.999 

.267 

21.999 

-.909 

3 

-9.  W 

12.797 

-68.299 

8.999 

21.719 

-3. 999 

3 

-3.3M 

12.823 

-68.327 

.929 

21.673 

-3. 722 

O  TABLE  A-ZII  (CONT) 


RAY 

BETA 

THCTA<RAY> 

NORMAL 

S 

ALRHA2 

RHO  2 

3 

-3.399 

12.962 

-99.399 

.949 

21.838 

-3.442 

3 

-3.999 

12.999 

-99.492 

.999 

21.399 

-3. 189 

3 

-3.999 

12. 939 

-99.439 

.999 

21.381 

-4.878 

3 

-3.999 

12.972 

-99.479 

.199 

21.323 

-4.389 

3 

-3.999 

13.999 

-99.912 

.  129 

21.499 

-4.399 

3 

-3.999 

13.943 

-99.949 

.  149 

21.432 

-4.999 

3 

-3.999 

13.991 

-99.994 

.199 

21.418 

-3.713 

3 

-3.999 

13.117 

-99.929 

.  189 

21.399 

-3.419 

3 

-3.999 

13. 133 

-99.999 

.299 

21.344 

-3. 129 

3 

-3.999 

13. 199 

-99.992 

.229 

21.399 

-2.319 

3 

-3.999 

13.224 

-99.727 

.249 

21.273 

-2.318 

3 

-3.999 

13.239 

-99.792 

.299 

21.239 

-2.219 

3 

-3.999 

13.294 

-99.797 

.299 

21.293 

-1.992 

3 

-3.999 

13.329 

-99.931 

.399 

21.189 

-1.391 

3 

-3.999 

13. 393 

-99. 999 

.329 

21.134 

-1.278 

3 

-3.999 

13.397 

-99.999 

.349 

21.199 

-.962 

3 

-3.999 

13.431 

-99.933 

.399 

21.987 

-.844 

3 

-3.999 

13. 494 

-99.997 

.399 

21.933 

-.323 

3 

-3.999 

13.497 

-99.999 

.499 

21.999 

-.899 

3 

-3.999 

13.494 

-99.997 

.399 

21.933 

-.323 

3 

-3.999 

13.497 

-99.979 

.392 

21.939 

-.291 

3 

-3.999 

13.471 

-99.974 

.394 

21.928 

-.239 

3 

-3.999 

13.474 

-99.977 

.399 

21.923 

-.227 

3 

-3.999 

13.477 

-99.999 

.399 

21.929 

-.  194 

3 

-3.999 

13.491 

-99.993 

.399 

21.917 

-.  162 

3 

-3.999 

13.494 

-99.997 

.392 

21.913 

-.  138 

3 

-3.999 

13.497 

-99.999 

.394 

21.919 

-.897 

3 

-3. 999 

13.499 

-99.993 

.398 

21.997 

-.863 

3 

-3.999 

13.494 

-99.997 

.399 

21.993 

-.932 

3 

-3.999 

13.497 

-99.999 

.499 

21.999 

-.899 

3 

-3.999 

13.494 

-99.997 

.399 

21.993 

-.832 

3 

-3.999 

13.494 

-99.997 

.399 

21.993 

-.829 

3 

-3.999 

13.494 

-99. 997 

.399 

21.993 

-.926 

3 

-3.999 

13.499 

-93.999 

.399 

21.992 

-.823 

3 

-3.999 

t 3 . 499 

-99.999 

.399 

21.992 

-.819 

3 

-3.999 

13.499 

-99.999 

.399 

21.992 

-.816 

3 

-3.999 

13.499 

-99.999 

.499 

21.991 

-.813 

3 

-3.999 

13.499 

-99.999 

.499 

21.991 

•  -.819 

3 

-3.999 

13.499 

-99.999 

.499 

21.991 

-.996 

3 

-3.999 

13.497 

-99.999 

.499 

21.999 

-.993 

3 

-3.999 

13.497 

-99.999 

.499 

21.999 

-.898 

3 

-3.999 

13.497 

-99.999 

.499 

21.999 

-.893 

3 

-3.999 

13.497 

-99.999 

.499 

21.999 

-.883 

3 

-3.999 

13.497 

-99.999 

.499 

21.999 

-.983 

3 

-3.999 

13.497 

-99.999 

.499 

21.999 

-.992 

3 

-3.999 

13.497 

-99.999 

.499 

21.999 

-.992 

69 


TABLE  A-III  (COKT) 


MY 

»ETA 

THETfURRY) 

NORMAL 

3 

ALPHA2 

RHO  2 

3 

-5.399 

13.497 

-69.888 

.488 

21.888 

-.882 

3 

-5.999 

13.497 

-69.888 

.488 

21.888 

-.081 

3 

-5. 999 

13.497 

-69.888 

.488 

21.888 

-.081 

3 

-5.999 

13.497 

-69.888 

.488 

21.888 

-.881 

3 

-5.999 

13.497 

-69.888 

.488 

21.888 

-.888 

3 

-5.999 

13.497 

-69.888 

.488 

21.888 

-.888 

3 

-5.999 

13.497 

-69.888 

.488 

21.888 

-.888 

3 

-5.999 

13.497 

-69.888 

.488 

21.888 

-.888 

3 

-5.999 

13.497 

-69.888 

.488 

21.808 

-.868 

3 

-5.999 

13.497 

-69.888 

.488 

21.888 

-.088 

3 

-5.999 

13.497 

-69.888 

.488 

21.888 

-.888 

3 

-5.999 

13.497 

-69.888 

.488 

21.888 

-.888 

3 

-5.999 

13.497 

-69.888 

.488 

21.888 

-.808 

3 

-5.999 

13.497 

-69.888 

.488 

21.888 

-.888 

3 

-5.999 

13.497 

-69.888 

.488 

21.888 

-.008 

3 

-5.999 

13.497 

-69.888 

.488 

21.888 

-.888 

3 

-5.999 

13.497 

-69. 888 

.488 

21.888 

-.080 

4 

-•. 765 

12.391 

-67.894 

8.888 

22. 186 

-8.765 

4 

-8.765 

12.449 

-67.952 

.827 

22.048 

-8.377 

4 

-8.765 

12.587 

-66.818 

.853 

21.998 

-7.984 

4 

-8.765 

12.565 

-68.868 

.880 

21.932 

-7.506 

4 

-8. 765 

12.623 

-68. 126 

.  187 

21.074 

-7. 182 

4 

-8.765 

12.681 

-68.184 

.  133 

21.816 

-6.774 

4 

-8.765 

12.738 

-68.241 

.  168 

21.759 

-6.361 

4 

-8.765 

12.795 

-68.298 

.  187 

21.782 

-5.942 

4 

-8.765 

12.852 

-68.355 

-214 

21.645 

-5.518 

4 

-8.765 

12.988 

-68.411 

.248 

21.589 

-5.889 

4 

-8.765 

12.964 

-68.467 

.267 

21.533 

-4.654 

4 

-8.765 

13.828 

-68.523 

.294 

21.477 

-4.214 

4 

-8.765 

13.075 

-68.578 

.328 

21.422 

-3.768 

4 

-8.  765 

13. 138 

-68.633 

.347 

21.367 

-3.317 

4 

-8.765 

13. 184 

-68.687 

.374 

21.313 

-2.860 

4 

-8.765 

13.238 

-68.741 

.488 

21.259 

-2.398 

4 

-8.765 

13.291 

-68. 794 

.427 

21.286 

-1.938 

4 

-8.  765 

13.343 

-68.846 

.454 

21.154 

-1.456 

4 

-8.765 

13.395 

-68.898 

.488 

21.162 

-.976 

4 

-8.765 

13.447 

-68.949 

.587 

21.851 

-.491 

4 

-8.765 

13.447 

-68.949 

587 

21.851 

-.491 

4 

-8.765 

13.452 

-68.955 

.518 

21.845 

-.442 

4 

-8.765 

13.457 

-68.968 

.513 

21.840 

-.393 

4 

•8.765 

13.462 

-68.965 

.515 

21.035 

-.344 

4 

-8.765 

13.467 

-68.978 

.518 

21.838 

-.295 

4 

-8. 765 

13.472 

-68.975 

.521 

21.825 

-.246 

4 

-8.765 

13.477 

-68.988 

.523 

21.828 

-.  197 

4 

-8.765 

t3. 482 

-68.985 

.526 

21.015 

-.140 

TABLE  A-III  (CONT) 


j 

i 

$ 


MY  8CTA  THCTMlRftV)  NORMAL  3  ALPHAS  RHO  2 


3 

-12.032 

12.933 

-00.430 

.434 

21.344 

-4.740 

3 

-12.092 

13.034 

-08.337 

.407 

21.403 

-4.099 

3 

-12.092 

13. 114 

-08.017 

.301 

21.383 

-3.440 

3 

-12.092 

13. 193 

-08.090 

.334 

21.304 

-2.781 

3 

-12.092 

13.271 

-00.774 

.307 

21.220 

-2.104 

3 

-12.092 

13.340 

-00.031 

.001 

21.149 

-1.413 

3 

-12.092 

13.423 

-00.920 

.034 

21.074 

-.714 

3 

-12.092 

13.340 

-08.831 

.001 

21.149 

-1.413 

3 

-12.092 

13.333 

-08.838 

.084 

21.142 

-1.343 

3 

-12.092 

13.303 

-08.800 

.007 

21.134 

-1.273 

3 

-12.092 

13.371 

-08.874 

.011 

21.120 

-1.200 

3 

-12.092 

13.370 

-08.881 

.014 

21.119 

-1.130 

3 

-12.092 

13.300 

-08.889 

.017 

21.111 

-1.006 

3 

-12.092 

13.393 

-08.890 

.021 

21.104 

-.993 

3 

-12.092 

13.401 

-08.904 

.024 

21.896 

-.923 

3 

-12.092 

13.400 

-08.911 

.027 

21.089 

-.833 

3 

-12.092 

13.410 

-08.919 

.031 

21.081 

-.784 

3 

-12.092 

13.423 

-08.920 

.034 

21.874 

-.714 

3 

-12.092 

13.431 

-08.934 

.037 

21.800 

-.043 

3 

-12.092 

13.430 

-08.941 

.041 

21.039 

-.372 

3 

•12.092 

13.440 

-08. 948 

.044 

21.032 

-.301 

3 

-12.092 

13.433 

-08.930 

.047 

21.044 

-.430 

3 

•12.092 

13.400 

-08.903 

.031 

21.037 

-.338 

3 

-12.092 

13.400 

-08.971 

.034 

21.829 

-.287 

3 

-12.092 

13.473 

-08.978 

.037 

21.022 

-.213 

3 

-12.092 

13.402 

-08.983 

.601 

21.013 

-.144 

3 

-12.092 

13.490 

-08.993 

.004 

21.007 

-.072 

3 

-12.092 

13.402 

-08.983 

.001 

21.013 

-.  144 

3 

-12.092 

13.483 

-08.980 

.001 

21.014 

-.  137 

3 

-12.092 

13.484 

-08.907 

.601 

21.013 

-.129 

3 

-12.092 

13.403 

-08.908 

.002 

21.812 

-.  122 

3 

-12.092 

13.403 

-08.988 

.602 

21.012 

-.113 

3 

-12.092 

13.400 

-08.909 

.002 

21.011 

-.100 

3 

-12.092 

13.407 

-00. 990 

.603 

21.010 

-.  101 

3 

-12.092 

13.400 

-08.990 

.663 

21.010 

-.093 

3 

-12.092 

13.400 

-08.991 

.063 

21.809 

-.006 

3 

-12.092 

13.409 

-08.992 

.004 

21.000 

-.079 

3 

-12.092 

13.490 

-00.993 

.064 

21.007 

-.072 

3 

-12.092 

13.490 

-08.993 

.604 

21.007 

-.003 

3 

-12.092 

13.491 

-08.994 

.003 

21.006 

-.030 

3 

-12.092 

13.492 

-08.993 

.003 

21.003 

-.030 

3 

-12.092 

13.493 

-08.990 

.003 

21.004 

-.043 

3 

-12.092 

13.493 

-00.990 

.600 

21.004 

-.030 

3 

-12.092 

13.494 

-08. 997 

.006 

21.003 

-.029 

3 

-12.092 

13.493 

-08.990 

.066 

21.802 

-.022 

3 

-12.092 

13.490 

-00.999 

.607 

21.001 

-.814 

9 

I 

i 

4 

> 

i 

4 

! 


TABLE  A-III  CCONT) 


□ 


KAY 

BETA 

THETA < RAY > 

NORMAL 

3 

ALRHA2 

RHO  2 

3 

•12.092 

13.496 

-68.999 

.667 

21.001 

-.007 

3 

-12.092 

13.497 

-69.800 

.667 

21.000 

-.000 

3 

-12.092 

13.496 

-68.999 

.667 

21.801 

-.007 

3 

-12.092 

13.496 

-68.999 

.667 

21.001 

-.006 

3 

-12.092 

13.496 

-68.999 

.667 

21.001 

-.006 

5 

-12.092 

13.497 

-68.999 

.667 

21.001 

-.003  . 

3 

-12.092 

13.497 

-69.000 

.667 

21.000 

-.004 

3 

-12.092 

13.497 

-69.000 

.667 

21.000 

-.004 

3 

-12.092 

13.497 

-69.000 

.667 

21.000 

-.003 

3 

-12.092 

13.497 

-69.000 

.667 

21.000 

-.002 

3 

-12.092 

13.497 

-69.000 

.667 

21.000 

-.001 

3 

-12.092 

13.497 

-69.000 

.667 

21.000 

-.001 

3 

-12.092 

13.497 

-69.000 

.667 

21.000 

-.000 

3 

-12.092 

13.497 

-69.000 

.667 

21.000 

-.001 

3 

-12.092 

13.497 

-69.000 

.667 

21.000 

-.001 

3 

-12.092 

13.497 

-69.000 

.667 

21.000 

-.001 

3 

-12.092 

13.497 

-69.000 

.667 

21.000 

-.001 

3 

-12.092 

13.497 

-69.000 

.667 

21.000 

-.000 

3 

-12.992 

13.497 

-69.000 

.667 

21.000 

-.000 

3 

-12.092 

13.497 

-69.800 

.667 

21.000 

-.000 

3 

-12.092 

13.497 

-69.000 

.667 

21.000 

-.000 

3 

-12.092 

13.497 

-69.000 

.667 

21.000 

-.008 

3 

-12.092 

13.497 

-69.000 

.667 

21.000 

-.000 

3 

-12.092 

13.497 

-69.000 

.667 

21.000 

-.000 

6 

-16. 140 

11.120 

-66.623 

0.000 

23.377 

-16.140 

6 

-16. 140 

11.239 

-66.742 

.040 

23.238 

-13.319 

6 

-16.140 

11.339 

-66.862 

.080 

23. 130 

-14.882 

6 

-16. 140 

1 1 . 479 

-66.982 

.  120 

23.018 

-14.227 

6 

-16. 140 

11.601 

-67. 104 

.  160 

22.896 

-13.336 

6 

-16. 140 

11.723 

-67.226 

.200 

22.774 

-12.866 

6 

-16.140 

11.843 

-67.340 

.240 

22.632 

-12. 137 

6 

-16.140 

11.968 

-67.471 

.280 

22.329 

-11.430 

6 

-16.140 

12.890 

-67.393 

.320 

22.407 

-10.683 

6 

-16. 140 

12.213 

-67.716 

.360 

22.284 

-9.916 

6 

-16.140 

12.336 

-67.839 

.400 

22. 161 

-9. 128 

6 

-16.140 

12.438 

-67.961 

.440 

22.039 

-8.319 

6 

-16.140 

12.379 

-60.002 

.480 

21.918 

-7.400 

6 

-16.140 

12.700 

-68.203 

.321 

21.797 

-6.633 

c 

-16.140 

12.819 

-60.322 

.361 

21.678 

-3.739 

c 

-16.140 

12.930 

-60.441 

.601 

21.339 

-4. 860 

6 

-16.140 

13.034 

-60. 337 

.641 

21.443 

-3.937 

c 

-16.140 

13.169 

-68.672 

.681 

21.320 

-2.998 

« 

-16. 140 

13.281 

-60.784 

.721 

21.216 

-2.019 

< 

-16.140 

13.390 

-68.893 

.761 

21.107 

-1.022 

6 

-16.140 

13.281 

-68.784 

.721 

21.216 

-2.019 

I! 


TABLE  A-III  (CONT 


THET8<*flY> 


6.  140 

13.202 

-68.793 

6.  140 

13.303 

-68.886 

C.140 

13.314 

-68.817 

C.  140 

13.32S 

-68.828 

C.  140 

13.336 

-60.839 

6.  140 

13.347 

-68.838 

6.  140 

13.338 

-68.861 

6.140 

13.369 

-68.872 

6.  140 

13.300 

-68.883 

6.  140 

13.390 

-68.893 

6.  140 

13.401 

-68.904 

«.  140 

13.412 

-68.913 

6,  140 

13.423 

-68.926 

6.  140 

13.433 

-68.936 

6.  140 

13.444 

-68.947 

6.  140 

13.433 

-68.938 

6.  140 

13.463 

-68. 968 

6.  140 

13.476 

-68.979 

6.  140 

13.487 

-68.989 

6.  140 

13.476 

-68.979 

6.  140 

13.477 

-68.980 

6.  140 

13.478 

-68.901 

6.140 

13.479 

-68.982 

6.  140 

13.480 

-68.983 

6.  140 

13.401 

-68.904 

6.  140 

13.402 

-68.983 

6.  140 

13.483 

•68.986 

6.140 

13.484 

-68.907 

6.  140 

13.483 

-68.988 

6.140 

13.487 

-68.989 

6.  140 

13.488 

-68.991 

6.140 

13.489 

-68.992 

6.  140 

13.490 

-68.993 

6.  140 

13.491 

-60.994 

6.140 

13.492 

-68.993 

6.140 

13.493 

-60.996 

6.140 

13.494 

-60.997 

6.  140 

13.493 

-68. 990 

6.140 

13.496 

-60.999 

6.  140 

13.493 

-60.  990 

6.  140 

13.493 

-60.990 

6.140 

13.493 

-60. 990 

6.  140 

13.493 

-60.990 

6. 140 

13.493 

-68.990 

6. 140 

13.493 

-60.990 

6.140 

13.496 

-60.999 
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6 

-it. 14a 

13.496 

-68.999 

.888 

21.881 

-.013 

6 

-ic. 14a 

13.49C 

-68.999 

.888 

21.081 

-.012 

6 

-1C. 148 

13.49C 

-68.999 

.888 

21.881 

-.011 

6 

-1C. 148 

13.496 

-68.999 

.888 

21.801 

-.010 

6 

-1C.  148 

13.49C 

-68.999 

.888 

21.081 

-.009 

6 

-1C. 148 

13.49C 

-68.999 

.888 

21.081 

-.008 

6 

-1C. 148 

13.49C 

-68.999 

.881 

21.081 

-.007 

6 

-1C. 148 

13.49C 

-68.999 

.881 

21.081 

-.006 

6 

-1C. 148 

13.49? 

-68.999 

.881 

21.801 

-.083 

6 

-1C. 148 

13.49? 

-69.888 

.801 

21.088 

-.004 

6 

•1C. 148 

13.49? 

-69.888 

.381 

21.088 

-.003 

6 

-1C. 148 

13.49? 

-69.888 

.301 

21.080 

-.002 

( 

-1C. 148 

13.497 

-69.888 

.881 

21.088 

-.001 

C 

-1C. 148 

13.49? 

-69.888 

.881 

21.808 

-.000 

7 

-21.114 

18.888 

-63.391 

0.  888 

24.409 

-21.114 

7 

-21.114 

18.24C 

-63.749 

.04? 

24.231 

-20.394 

y 

-21.114 

10.48C 

-63.989 

.093 

24.091 

-19.64? 

7 

-21.114 

18.378 

-66.873 

.148 

23.92? 

-18.872 

7 

-21.114 

18.736 

-66. 239 

.18? 

23.761 

-18.060 

7 

-21.114 

18.989 

-66.488 

.234 

23. 392 

-17.233 

7 

-21.114 

11.876 

-66.379 

.288 

23.421 

-16.366 

7 

-21.114 

11.249 

-66.732 

.327 

23.248 

-13.466 

7 

-21.114 

11.424 

-66.926 

.374 

23.074 

-14.331 

7 

-21.114 

11.688 

-67.183 

.420 

22.89? 

-13.360 

7 

-21.114 

11.778 

-67.288 

.46? 

22.720 

-12.530 

7 

-21.114 

11.996 

-67.439 

.314 

22.341 

-11.300 

7 

-21.114 

12. 133 

-67.637 

.361 

22.363 

-10.410 

7 

-21.114 

12.313 

-67.816 

.60? 

22.184 

-9.276 

7 

-21.114 

12.491 

-67. 994 

.634 

22.086 

-8.097 

7 

-21.114 

12.667 

-68.178 

.781 

21.838 

-6.872 

7 

-21.114 

12.941 

-68.344 

.74? 

21.636 

-3.399 

7 

-21. 114 

13.812 

-68.313 

.794 

21.483 

-4.27? 

7 

-21.114 

13. 179 

-68.682 

.841 

21.318 

-2.984 

7 

-21.114 

13.341 

-68.844 

.888 

21.136 

-1.479 

7 

-21.114 

13.179 

-68.682 

.841 

21.318 

-2.984 

7 

-21.114 

13. 193 

-68.698 

.846 

21.382 

-2.764 

7 

-21.114 

13.212 

-68.713 

.838 

21.283 

'  -2.623 

7 

-21.114 

13.228 

-68.731 

.833 

21.269 

-2.482 

7 

-21.114 

13.244 

-68.747 

.868 

21.233 

-2.340 

7 

-21.114 

13.268 

-68.763 

.864 

21.23? 

-2. 198 

7 

-21.114 

13.277 

-68.788 

.869 

21.228 

-2.033 

7 

-21.114 

13.293 

-68.796 

.874 

21.284 

-1.912 

7 

-21.114 

13.389 

-68.812 

.878 

21.180 

-1.768 

7 

-21.114 

13.323 

-68.828 

.883 

21.172 

-1.624 

7 

-21.114 

13.341 

-68.844 

.888 

21.136 

-1.479 
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7 

-21. 1 14 

13.337 

-68.868 

.892 

21.140 

-1.333 

7 

-21.114 

13.373 

-68.876 

.897 

21.124 

-1.187 

7 

-21.114 

13.338 

-68.391 

.982 

21.109 

-1.041 

7 

-21.114 

13.434 

-68.987 

.986 

21.893 

-.894 

7 

-21.114 

13.428 

-68.923 

.911 

21.877 

-.746 

7 

-21.114 

13.433 

-68.938 

.916 

21.862 

-.398 

7 

-21.114 

13.431 

-68.934 

.928 

21.046 

-.449 

7 

-21.114 

13.466 

-68.969 

.923 

21.831 

-.388 

7 

-21.114 

13.482 

-68.983 

.938 

21.813 

-.  130 

7 

-21.  114 

13.497 

-69.888 

.934 

21.888 

-.000 

8 

-27.283 

8.626 

-64. 129 

8.888 

23.871 

-27.263 

8 

-27.263 

8.828 

-64.323 

.833 

23.677 

-26.493 

8 

-27.263 

9.821 

-64.324 

.  187 

23.476 

-23.681 

8 

-27.263 

9.229 

-64. 732 

.  168 

23.268 

-24.827 

8 

-27.263 

9.444 

-64.947 

.214 

23.833 

-23.928 

8 

-27.263 

9.663 

-63.168 

.267 

24.832 

-22.980 

8 

-27.263 

9.894 

-63.397 

.320 

24.683 

-21.981 

8 

-27.263 

18.129 

-63.632 

.374 

24.368 

-28.926 

8 

-27.263 

18.371 

-63.874 

.427 

24. 126 

-19.812 

8 

-27.263 

18.628 

-66. 122 

.488 

23.878 

-18.634 

a 

-27.263 

13.374 

-66.377 

.334 

23.623 

-17.387 

8 

-27.263 

11.  134 

-66.637 

.387 

23.363 

-16.067 

8 

-27.263 

11.398 

-66.981 

.641 

23.899 

-14.669 

8 

-27.263 

11.666 

-67. 169 

.694 

22.831 

-13. 188 

8 

-27.263 

11.936 

-67.439 

.747 

22.361 

-11.617 

8 

-27.263 

12.288 

-67.711 

.881 

22.289 

-9.931 

a 

-27.263 

12.478 

-67.981 

.834 

22.819 

-8. 184 

8 

-27.263 

12.743 

-68.248 

.988 

21.732 

-6.311 

8 

-27.263 

13.836 

-68.389 

.961 

21.491 

-4.326 

8 

-27.263 

13.238 

-68.761 

1.814 

21.239 

-2.224 

a 

-27.263 

13.386 

-63.389 

.961 

21.491 

-4.326 

s 

-27.263 

13.831 

-68.334 

.966 

21.466 

-4. 121 

8 

-27.263 

13.397 

-68.368 

.972 

21.440 

-3.913 

8 

•27.263 

13.882 

-68.383 

.977 

21.413 

-3.788 

8 

-27.263 

13. 138 

-68.611 

.982 

21.389 

-3.388 

8 

-27.263 

13. 133 

-68. 636 

.980 

21.364 

. -3.298 

8 

-27.263 

13. 138 

-68.661 

.993 

21.339 

-3.879 

8 

-27.263 

13. 183 

-68.666 

.998 

21 . 3t4 

-2.867 

a 

-27.269 

13.288 

-68.711 

1.804 

21.289 

-2.634 

8 

-27.263 

13.233 

-68.736 

1.889 

21.264 

-2.440 

8 

-27.263 

13.238 

-68.761 

1.814 

21.239 

-2.224 

8 

-27.263 

13.282 

-68.783 

1.820 

21.213 

-2.087 

8 

-27.263 

13.387 

-68.318 

1.823 

21.190 

-1.709 

a 

-27.263 

13.331 

-68.834 

1.838 

21. 166 

-1.378 

8 

-27.263 

13.333 

-68.838 

1.836 

21.142 

-1.349 
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8 

-27. 2(3 

13.378 

-68.882 

1.841 

21.118 

-1.127 

9 

-27.2 63 

13.483 

-68.986 

1.846 

21.894 

-.984 

a 

-27 . 263 

13.427 

-68.938 

1.832 

21.878 

-.688 

8 

-27.283 

13.438 

-68.953 

1.837 

21.847 

-.433 

8 

-27.283 

13.474 

-68.977 

1.862 

21.823 

-.228 

8 

-27.283 

13.438 

-68.933 

1.837 

21.847 

-.433 

8 

-27.283 

13.433 

-68.936 

1.838 

21.844 

-.432 

8 

-27.283 

13.433 

-68.938 

1.838 

21.842 

-.489 

8 

-27.283 

13.437 

-68.968 

1.839 

21.848 

-.387 

3 

-27.283 

13.468 

-68.963 

1.839 

21.837 

-.364 

a 

-27.283 

13.462 

-68.963 

1.868 

21.833 

-.341 

3 

-27.283 

13.464 

-68. 967 

1.868 

21.833 

-.319 

8 

-27.283 

13.467 

-68.978 

1.861 

21.838 

-.296 

a 

-27.283 

13.469 

-68.972 

1.861 

21.828 

-.273 

8 

-27.283 

13.471 

-68.974 

1.862 

21.826 

-.231 

8 

-27.283 

13.474 

-68.977 

1.862 

21.823 

-.228 

8 

-27.283 

13.478 

-68.979 

1.863 

21.821 

-.283 

a 

-27.283 

13.478 

-68.981 

1.863 

21.819 

-.  182 

8 

-27.283 

13.491 

-68.984 

1.864 

21.816 

-.168 

9 

-27.283 

13.483 

-68.986 

1.863 

21.814 

-.137 

8 

-27.283 

13.483 

-68.988 

1.863 

21.812 

-.114 

a 

-27.283 

13.488 

-68.991 

1.866 

21.889 

-.891 

8 

-27.283 

13.498 

-68.993 

1.866 

21.887 

-.869 

8 

-27.283 

13.492 

-68.993 

1.867 

21.883 

-.846 

a 

-27.283 

13.493 

-68.998 

1.867 

21.882 

-.823 

9 

-27.283 

13.492 

-68.993 

1.867 

21.883 

-.846 

9 

-27.263 

13.493 

-68.996 

1.867 

21.884 

-.843 

9 

-27.263 

13.493 

-68.996 

1.867 

21.884 

-.841 

a 

-27.263 

13.493 

-68.996 

1.867 

21.884 

-.839 

a 

•27.263 

13.493 

-68. 996 

1.867 

21.884 

-.837 

8 

-27.263 

13.494 

-68.997 

1.867 

21.883 

-.834 

8 

-27.263 

13.494 

-68.997 

1.867 

21.883 

-.832 

9 

-27.263 

13.494 

-68.997 

1.867 

21 . 883 

-.838 

9 

-27.263 

13.494 

-68.997 

1.867 

21.883 

-.827 

8 

-27.263 

13.494 

-68.997 

1.867 

21.883 

-.823 

8 

-27.263 

13.493 

-68.998 

1.867 

21.882 

-.823 

9 

-27.283 

13.493 

-68.998 

1.867 

21.882 

-.821 

8 

-27.263 

13.493 

-68.998 

1.867 

21.882 

-.818 

a 

-27.263 

13.493 

-68.998 

1.867 

21.882 

-.816 

a 

-27.263 

13.496 

-66.999 

1.867 

21.881 

-.814 

a 

-27.263 

13.496 

-68.999 

1.867 

21.881 

-.811 

a 

-27.263 

13.496 

-68.999 

1.868 

21.881 

-.889 

a 

-27.263 

13.496 

-68.999 

1.868 

21.881 

-.887 

a 

-27.263 

13.497 

-69.888 

1.868 

21.888 

-.883 

a 

-27.263 

13.497 

-69.888 

1.868 

21.888 

-.882 

a 

-27.263 

13.497 

-69.888 

1.868 

21.888 

-.883 
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9 

-27.293 

13.497 

-69.898 

1.868 

21.889 

-.984 

9 

-27.293 

13.497 

-69.888 

1.868 

21.898 

-.884 

9 

-27.293 

13.497 

-69.889 

1.869 

21.888 

-.084 

9 

-27.293 

13.497 

-69.888 

1.968 

21.888 

-.084 

9 

-27.293 

13.497 

-69.989 

1.968 

21.888 

-.083 

9 

-27.293 

13.497 

-69.998 

1.868 

21.888 

-.083 

9 

-27.293 

13.497 

-69.999 

1.868 

21.889 

-.003 

9 

-27.293 

13.497 

-69.989 

1.868 

21.888 

-.803 

9 

-27.293 

13.497 

-69.899 

1.968 

21.888 

-.003 

9 

-27.293 

13.497 

-69.889 

1.868 

21.888 

-.082 

8 

-27.293 

13.497 

-69.999 

1.868 

21.888 

-.082 

8 

-27.293 

13.497 

-69.888 

1.868 

21.888 

-.082 

8 

-27.293 

13.497 

-69.899 

1.868 

21.888 

-.002 

9 

-27.293 

13.497 

-69.999 

1.868 

21.988 

-.081 

8 

-27.293 

13.497 

-69.999 

1.868 

21.889 

-.001 

a 

-27.293 

13.497 

-69.899 

1.868 

21.988 

-.001 

8 

•27.293 

13.497 

-69.988 

1.868 

21.888 

-.801 

9 

-27.293 

13.497 

-69.999 

1.868 

21.888 

-.000 

8 

-27.293 

13.497 

-69.989 

1.968 

21.989 

-.080 

9 

-34.893 

5.352 

-62.963 

9.888 

27. 933 

-34.863 

9 

-34.893 

6.759 

-62.272 

.969 

27.728 

-34. 142 

9 

-34.893 

6.989 

-62.492 

.128 

27.388 

-33.368 

9 

-34.893 

7.221 

-62.724 

.  199 

27.276 

-32.339 

9 

-34.993 

7.467 

-62.979 

.249 

27.838 

-31.649 

9 

-34.993 

7.728 

-63.231 

.388 

26.769 

-30.693 

9 

-34.893 

8.884 

-63.397 

.369 

26.493 

-29.661 

-34.893 

8.296 

-63.799 

.429 

26.281 

-28.347 

9 

-34.893 

8.686 

-64. 199 

.489 

23.891 

-27.341 

9 

-34.995 

8.933 

-64.437 

.341 

23.363 

-26.032 

9 

-34.893 

9.292 

-64.783 

.691 

23.213 

-24.688 

9 

-34.893 

9.649 

-63. 131 

.661 

24.849 

-23.034 

9 

-34.893 

19.834 

-63.337 

.721 

24.463 

-21.336 

9 

-34.993 

18.439 

-63.942 

.781 

24.838 

-19.493 

9 

-34.893 

18.861 

-66.364 

.941 

23.636 

-17.432 

9 

-34.993 

11.298 

-66.891 

.991 

23. 199 

-13.284 

9 

-34.993 

11.747 

-67.239 

.961 

22.739 

.-12.727 

9 

-34. 993 

12.291 

-67.794 

1.821 

22.296 

-9.994 

9 

-34.853 

12.632 

-69. 133 

1.991 

21.943 

-6.988 

9 

-34.853 

13.999 

-69.392 

1.141 

21.498 

-3.636 

9 

-34.953 

12.632 

-68. 133 

1.991 

21.843 

-6.988 

9 

-34.853 

12.695 

-68.199 

1.997 

21.891 

-6.662 

9 

-34.953 

12.741 

-68.244 

1.993 

21.736 

-6.341 

9 

-34.953 

12.783 

-69.299 

1.999 

21.712 

-6.016 

9 

-34. 853 

12.929 

-68.332 

1.193 

21.669 

-3.689 

9 

-34.953 

12.973 

-68.376 

1.111 

21.624 

-5.338 
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9 

-34.363 

12.916 

-68.419 

1.117 

21.381 

-3.024 

9 

-34.363 

12.968 

-68.463 

1.123 

21.337 

-4.637 

9 

-34.863 

13.883 

-68.386 

1.129 

21.494 

-4.347 

9 

-34.863 

13.846 

-68.349 

1.133 

21.431 

-4.003 

9 

-34.863 

13.889 

-68.392 

1.141 

21.488 

-3.636 

9 

-34.863 

13. 131 

-68.634 

1.147 

21.366 

-3.306 

9 

-34.363 

13.173 

-68.676 

1.133 

21.324 

-2.932 

9 

-34.863 

13.213 

-68.718 

1.139 

21.282 

-2.393 

9 

-34.863 

13.236 

-68.739 

1.163 

21.241 

-2.235 

9 

-34.863 

13.297 

-68.886 

1.171 

21.288 

-1.871 

9 

-34.863 

13.338 

-66.841 

1.177 

21.139 

-1.304 

9 

-34.863 

13.378 

-68.881 

1.183 

21.119 

-1.133 

9 

-34.863 

13.418 

-68.921 

1.189 

21.879 

-.739 

9 

-34.863 

13.438 

-68.961 

1.193 

21.839 

-.381 

9 

-34.363 

13.418 

-68.921 

1.189 

21.879 

-.739 

9 

-34.863 

13.422 

-68.923 

1.198 

21.873 

-.  721 

9 

-34.863 

13.426 

-68.929 

1.198 

21.871 

-.634 

9 

-34.863 

13.438 

-68.933 

1.191 

21.067 

-.646 

9 

-34.863 

13.434 

-68.937 

1.192 

21.863 

-.608 

9 

-34.863 

13.438 

-68.941 

1.192 

21.039 

-.370 

9 

-34.863 

13.442 

-68.943 

1.193 

21.853 

-.333 

9 

-34.863 

13.446 

-68.949 

1.193 

21.031 

-.493 

9 

-34.863 

13.438 

-68.933 

1.194 

21.047 

-.437 

9 

-34.863 

13.434 

-68.937 

1.193 

21.043 

-.419 

9 

-34.863 

13.438 

-68.961 

1.193 

21.039 

-.381 

9 

-34.863 

13.462 

-68.963 

1.196 

21.033 

-.343 

9 

-34.863 

13.466 

-68.969 

1.196 

21.831 

-.303 

9 

-34.863 

13.478 

-68.973 

1.197 

21.027 

-.267 

9 

-34.863 

13.474 

-68.977 

1.198 

21.023 

-.229 

9 

-34.863 

13.478 

-68.981 

1.198 

21.819 

-.191 

9 

-34.863 

13.481 

-68.984 

1.199 

21.016 

-.  133 

9 

-34.863 

13.483 

-68.986 

1.199 

21.812 

-.113 

9 

-34.863 

13.489 

-68.992 

1.288 

21.088 

-.077 

9 

-34.863 

13.493 

-68.996 

t .  281 

21.004 

-.838 

9 

-34.863 

13.489 

-68.992 

1.288 

21.008 

-.077 

9 

-34.865 

13.496 

-68.993 

1.288 

21.807 

-.073 

9 

-34.863 

13.496 

-68.993 

1.288 

21.087 

-.069 

9 

-34.863 

13.498 

-68.993 

1.286 

21.807 

-.063- 

9 

-34.863 

13.491 

-68. 994 

1.288 

21.006 

-.061 

9 

-34.863 

13.491 

-68.994 

1.288 

21.806 

-.837 

9 

-34.863 

13.492 

-68.993 

1.288 

21.803 

-.034 

* 

-34.863 

13.492 

-68.993 

1.288 

21.883 

-.030 

9 

-34.863 

13.492 

-68.993 

1.261 

21.883 

-.046 

* 

-34.863 

13.493 

-68.996 

1.261 

21.884 

-.042 

9 

-34.863 

13.493 

-68.996 

1.281 

21.884 

-.038 

9 

-34.863 

13.494 

-68.997 

1.261 

21.083 

-.034 

\ 

i 

i 

t 
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TABLE  A-III  (.CONT) 


R«v 

NORHflL 

S 

0LPHA2 

RHO  2 

9 

-34.865 

13.494 

-68.997 

1.201 

21.083 

-.031 

9 

-34.865 

13.494 

-68.997 

1.201 

21.803 

-.027 

9 

-34.865 

13.495 

-68. 999 

1.201 

21.802 

-.823 

9 

-34.865 

13.495 

-68.998 

1.201 

21.002 

-.019 

9 

-34.865 

13.495 

-68.998 

1.201 

21.002 

-.015 

9 

-34.865 

13.496 

-68.999 

1.281 

21.001 

-.011 

9 

-34.865 

13.496 

-68.999 

1.201 

21.001 

-.008 

9 

-34.865 

13.497 

-69.888 

1.281 

21.000 

-.004 

9 

-34.865 

13.496 

-63.999 

1.201 

21.081 

-.008 

9 

-34.865 

13.496 

-69.999 

1.281 

21.081 

-.007 

9 

-34.865 

13.496 

-69.999 

1.201 

21.001 

-.007 

9 

-34.865 

13.496 

-68.999 

1.281 

21.001 

-.807 

9 

-34.865 

13.496 

-68.999 

1.281 

21.081 

-.006 

9 

-34.865 

13.496 

-68.999 

1.281 

21.001 

-.006 

9 

-34.865 

13.496 

-68.999 

1.201 

21.001 

-.085 

9 

-34.865 

13.497 

-68.999 

1.201 

21.001 

-.005 

9 

-34.865 

13.497 

-69.888 

1.281 

21.000 

-.005 

9 

-34.865 

13.497 

-69.888 

1.281 

21.000 

-.004 

9 

-34.865 

13.497 

-69.888 

1.281 

21.080 

-.004 

9 

-34.863 

13.497 

-69.808 

1.281 

21.000 

-.003 

9 

-34.865  . 

13.497 

-69.088 

1.281 

21.008 

-.003 

9 

-34.865 

13.497 

-69.888 

1.281 

21.008 

-.003 

9 

-34.865 

13.497 

-69.888 

1.281 

21.008 

-.002 

9 

-34.865 

13.497 

-69.888 

1.281 

21.080 

-.002 

9 

-34.865 

13.497 

-69.000 

1.281 

21.000 

-.002 

9 

-34.865 

13.497 

-69.088 

1.201 

21.000 

-.001 

9 

-34.863 

13.497 

-69.888 

1.281 

21.000 

-.001 

9 

-34.863 

13.497 

-69.088 

1.281 

21.000 

-.000 

19 

-44.118 

3.749 

-56.243 

8.888 

30.757 

-44. 119 

19 

-44,118 

3.899 

-59.482 

.867 

30.598 

-43.628 

19 

-44.118 

4.871 

-59.574 

.133 

38.426 

-43.076 

19 

-44.118 

4.259 

-59.762 

.280 

30.238 

-42.482 

19 

-44.118 

4.463 

-59.966 

.267 

30.034 

-41.829 

19 

-44.118 

4.688 

-68. 191 

.334 

29.889 

-41. 109 

19 

-44.118 

4.935 

-68.438 

.408 

29.562 

-48.310 

19 

-44.118 

5.298 

-68.711 

.467 

29.289 

t39. 420 

19 

-44.118 

5.511 

-61.814 

.534 

28.986 

-38.423 

19 

-44.118 

5.348 

-61.351 

.601 

28.649 

-37.290 

19 

-44.118 

6.226 

-61.729 

.667 

28.271 

-36.021 

ie 

-44. 119 

6.658 

-62.153 

.734 

27.847 

-34.559 

ie 

-44.  118 

7.  129 

-62.631 

.881 

27.369 

-32.873 

19 

-44.118 

7.669 

-63.172 

.869 

26.328 

-30.909 

19 

-44.118 

3.283 

-63.786 

.934 

26.214 

-28.600 

19 

-44.118 

9.978 

-64.481 

1.881 

25.519 

-25.356 

19 

-44.118 

9.763 

-65.266 

1.860 

24.734 

-22.556 

TABLE  A— III  (CONT) 


■V 


RRY 

BETA 

TH6TA<RAY> 

NORMAL 

S 

ALPHA2 

RHO  2 

la 

-44.118 

18. 838 

-66. 141 

1.134 

23.839 

-18.344 

la 

-44.118 

11.398 

-67.892 

1.281 

22. 988 

-13.613 

1a 

-44.118 

12.374 

-68.877 

1.268 

21.923 

-7.327 

la 

-44. 118 

11.598 

-67.992 

1.281 

22.988 

-13.618 

ia 

-44.118 

11.688 

-67. 191 

1.288 

22.889 

-13.966 

la 

-44.118 

11.786 

-67.289 

1.213 

22.711 

-12.381 

ia 

-44.118 

1 1 . 884 

-67.387 

1.221 

22.613 

-11.923 

ia 

-44.118 

11.983 

-67.486 

1.228 

22.314 

-11.336 

ia 

-44.118 

12.882 

-67.383 

1.233 

22.413 

-16.733 

xa 

-44.118 

12. 181 

-67.684 

1.241 

22.316 

-ia. 12a 

ia 

-44.118 

12.279 

-67.782 

1.248 

22.218 

-9.492 

ia 

-44.118 

12.378 

-67.881 

1.233 

22.119 

-8.831 

ia 

-44.118 

12.476 

-67.979 

1.261 

22.821 

-8. 196 

ia 

-44.118 

12.374 

-68.877 

1.268 

21.923 

-7.327 

ia 

-44.118 

12.671 

-68.174 

1.273 

21.326 

-6.843 

ia 

-44.118 

12.767 

-68.278 

1.281 

21.739 

-6. 143 

ia 

-44.118 

12.863 

-68.366 

1.288 

21.634 

-5.431 

ia 

-44.118 

12.938 

-66.461 

1.293 

21.339 

-4.783 

ia 

-44.118 

13.831 

-68.334 

1.381 

21.446 

-3.939 

ia 

-44.118 

13.144 

-68.647 

1.388 

21.333 

-3. 199 

ta 

-44. 118 

13.233 

-68. 738 

1.313 

21.262 

-2.424 

ia 

-44.118 

13.324 

-68.327 

1.321 

21.173 

-1.632 

ta 

-44.118 

13.411 

-68.914 

1.328 

21.886 

-.824 

ia 

-44.118 

13.324 

-68.827 

1.321 

21.  ;  73 

-1.632 

ia 

-44.118 

13.333 

-68.836 

1.322 

21.164 

-1.332 

ia 

-44.118 

13.342 

-68.843 

1.323 

21.133 

-1.472 

ia 

-44.118 

13.338 

-68.833 

1.323 

21.147 

-1.392 

10 

-44.118 

13.339 

-68.862 

1.324 

21.138 

-1.311 

ia 

-44.118 

13.368 

-68.871 

1.323 

21.129 

-1.238 

ta 

-44.118 

13.377 

-68.880 

1.323 

21.128 

-1.149 

ta 

-44.118 

13.383 

-68.888 

1.326 

21.112 

-1.868 

ta 

-44.118 

13.394 

-68.897 

1.327 

21.183 

-.987 

10 

-44.118 

13.483 

-68.986 

1.327 

21.894 

-.986 

ta 

-44.118 

13.411 

-68.914 

1.328 

21.886 

-.824 

ta 

-44.118 

13.428 

-68.923 

1.329 

21.877 

-.743 

ta 

-44.118 

13.429 

-68.932 

1.329 

21.868 

-.661 

ta 

-44.118 

13.437 

-68.948 

1.338 

21.868 

-.379 

ta 

-44.118 

13.446 

-68.949 

1.331 

2i.asi 

-.497 

ta 

-44. 118 

13.433 

-68.937 

1.331 

21.843 

-.414 

ta 

-44.118 

13.463 

-68.966 

1.332 

21.834 

-.332 

ta 

-44.118 

13.472 

-68.973 

1.333 

21.823 

-.249 

ta 

-44.118 

13.488 

-68.983 

1.333 

21.817 

-.  166 

ta 

-44.118 

13.489 

-68.992 

1.334 

21.888 

-.883 

ta 

-44.118 

13.488 

-68.983 

1.333 

21.817 

-.  166 

ta 

-44.118 

13.481 

-68.984 

1.333 

21.816 

-.  138 

ta 

-44.118 

13.482 

-68.983 

1.333 

21.813 

-.138 
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TABLE  A-III  CCONT) 


■ETA  TH£TA<RAY >  NORMAL  3  ALPHA2  RHO  2 


i 


44.118 

13.483 

-68.986 

1.334 

21.814 

-.141 

44.118 

13.483 

-68.986 

1.334 

21.814 

-.  133 

'44.118 

13.484 

-68.987 

1.334 

21.813 

-.  125 

44.118 

13.485 

-68.988 

1.334 

21.812 

-.116 

44.118 

13.488 

-68.989 

1.334 

21.811 

-.  188 

■44.118 

13.487 

-68.998 

1.334 

21.818 

-.  188 

'44.118 

13.488 

-68.991 

1.334 

21.889 

-.891 

■44.118 

13.483 

-68.992 

1.334 

21.888 

-.883 

■44. 1 18 

13.489 

-68.992 

1.334 

21.888 

-.875 

■44.118 

13.498 

-68.993 

1.334 

21.887 

-.867 

'44.118 

13.491 

-68.994 

1.334 

21.886 

-.858 

'44.118 

13.492 

-68. 999 

1.334 

21.885 

-.858 

-44.118 

13.493 

-68.996 

1.334 

21.884 

-.842 

'44.118 

13.494 

-68.997 

1.334 

21.883 

-.833 

44.118 

13.495 

-68.997 

1.334 

21.883 

-.825 

•44.  118 

13.493 

-68.998 

1.335 

21.882 

-.817 

■44.118 

13.496 

-68.999 

1.335 

21.881 

-.888 

44.118 

13.496 

-68.999 

1.335 

21.881 

-.888 

44.118 

13.496 

-68.999 

1.335 

21.881 

-.887 

44.118 

13.496 

-68.999 

1.335 

21.881 

-.887 

■44.118 

13.496 

-68.999 

1.335 

21.881 

-.886 

44.118 

13.497 

-68.999 

1.335 

21.881 

-.885 

-44.118 

13.497 

-69.888 

1.335 

21.888 

-.884 

44.113 

13.497 

-69.888 

1.335 

21.888 

-.883 

■44.118 

13.497 

-69.888 

1.335 

21.888 

-.882 

•44.  118 

13.497 

-69.888 

1.335 

21.888 

-.082 

44.118 

13.497 

-69.888 

1.335 

21.888 

-.881 

*A*  M-R-K* 
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TABLE  A-IV 

SECOND  SURFACE  COORDINATE  (X ,Y)  VALUES ,  S,  ALPHA2  AND 
RH02  FOR  THE  FAMILY  OF  SURFACES  IN  FIGURES  17  AND  18. 
THE  COLUMN  LABELED  BEGIN  RAY  CORRESPONDS  TO  THE  FAMILY 
MEMBER. 


I 


US" 

N*xl 

KAY 

X»urf 

) 

Ysurf 
(ntxt > 

S 

(next  > 

Mph«2 
<n«x( > 

RHO  2 
<n*xt  > 

1 

l 

.  392 

.999 

.  133 

21.899 

-.999 

1 

2 

.649 

.119 

.  133 

21.291 

-1.988 

1 

3 

.933 

.221 

.  132 

21.466 

-4. 122 

1 

4 

1.229 

.333 

.  139 

21.924 

-6.931 

1 

3 

1.394 

.447 

.  123 

22.321 

-18. 147 

1 

6 

1.786 

.363 

.119 

23.924 

-14.262 

1 

7 

2.967 

.692 

.  197 

24.943 

-19.423 

1 

9 

2.344 

.883 

.898 

23.338 

-23.934 

1 

9 

2.616 

.936 

.966 

27.797 

-34.979 

1 

te 

2.992 

1.876 

.838 

39.688 

-43.981 

2 

2 

.724 

.898 

.267 

21.281 

-.999 

2 

3 

1.919 

.111 

.266 

21.228 

-2.123 

2 

4 

1.296 

.222 

.263 

21.338 

-4.693 

2 

3 

1.391 

.334 

.262 

21.973 

-7.878 

2 

6 

1.963 

.449 

.236 

22.693 

-11.968 

2 

7 

2.146 

.366 

.248 

23.342 

-16.978 

2 

9 

2.423 

.607 

.234 

24.971 

-23.377 

2 

9 

2.699 

.813 

.212 

27. 147 

-32.874 

2 

19 

2.967 

.933 

.179 

39.399 

-42.677 

3 

3 

1.986 

.999 

.499 

21.228 

-.999 

3 

4 

1.372 

.111 

.399 

21.262 

-2. 429 

3 

3 

1.638 

.222 

.399 

21.633 

-3.429 

3 

6 

1.943 

.333 

.394 

22. 189 

-9.231 

3 

7 

2.226 

.439 

.398 

23.921 

-14.243 

3 

9 

2.396 

.378 

.377 

24.334 

-29.863 

3 

9 

2.782 

.693 

.339 

26.392 

-29.693 

3 

19 

3.932 

.829 

.329 

29.826 

-41.164 

4 

4 

1.449 

.999 

.334 

21.262 

-.999 

4 

3 

1.734 

.111 

.332 

21.397 

-2.819 

4 

« 

2.829 

.223 

.331 

21.766 

-6.414 

4 

7 

2.394 

.336 

.327 

22.493 

-11.298 

4 

8 

2.396 

.433 

.319 

23.699 

-17.757 

4 

9 

2.964 

.373 

.394 

23.766 

-26.849 

4 

19 

3. 136 

.796 

.479 

29.242 

-39.269 

3 

3 

1.911 

.999 

.667 

21.397 

-.999 

3 

9 

2.996 

.111 

.666 

21.371 

-3.349 

3 

7 

2.392 

.223 

.664 

21.979 

-7.849 

3 

9 

2.663 

.337 

.638 

23.911 

-14.189 

3 

9 

2.946 

.437 

.647 

24.932 

-23.412 

3 

19 

3.229 

.394 

.626 

28.319 

-36.832 

6 

« 

2.173 

.999 

.991 

21.371 

-.999 

o 
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TABLE  A-IV  CCONT) 


X»urf 
(next  > 


Y*urf 
(next  ) 


S 

(next) 


Alph*2 
(next  > 


RHO  2 
(next  > 


2. 

439 

.112 

.799 

21.469 

-4. 143 

2. 

743 

.224 

.796 

22.313 

-19.999 

3. 

926 

.349 

.799 

24.992 

-19.227 

3. 

393 

.463 

.773 

27.379 

-33.613 

2. 

333 

.999 

.934 

21.469 

-.999 

2. 

929 

.112 

.932 

21.634 

-3.429 

3. 

193 

.223 

.929 

22.996 

-14. 197 

3. 

393 

.344 

.917 

26.379 

-29.223 

2. 

997 

.999 

1.969 

21.634 

-.999 

3. 

192 

.113 

1.964 

21.971 

-7.933 

3. 

463 

.227 

1.939 

24.943 

-23.929 

3. 

239 

.999 

1.291 

21.971 

-.999 

3. 

343 

.114 

1.196 

22.996 

-14.931 

3. 

622 

.999 

1.333 

22.996 

-.991 

TABLE  A-V 


COMPARISON  OF  THE  MAXIMUM  ALLOWED'  LENGTH  OF  THE  RAY  IN 
THE  LENS  QA  AND  THE  ACTUAL  VALUE  USED  Sj^,  FOR  EACH 

SURFACE  IN  FIGURES  17  AND  18.  ALPHA2  AND  RH02  ARE  THE 
VALUES  AT  SM*V. 


TABLE  A-VI 

CALCULATED  VALUES  OF  S  AND  ALPHA2  USED  TO  CONSTRUCT 
THE  DESIGN  CHART  IN  FIGURE  19  FOR  THE  FINAL  DESIGN 
OF  SURFACE  NUMBER  1  in  FIGURE  20. 


THETA<I»AY>  NORMAL 


697 

13.317 

-68.328 

a.  880 

21.188 

-1.697 

697 

13. 326 

-68.829 

.887 

21.171 

-1.614 

697 

13.335 

-68.838 

.813 

21.162 

-1.538 

697 

13.344 

-68.847 

.828 

21.153 

-1.447 

697 

13.354 

-68.856 

.827 

21.144 

-1.363 

697 

13.363 

-68.866 

.833 

21.134 

-1.279 

697 

13.372 

-68.875 

.848 

21.125 

-1.195 

697 

13.381 

-63.884 

.847 

21.116 

-1. Ill 

697 

13.398 

-68.893 

.853 

21.187 

-1.827 

697 

13.399 

-68.982 

.868 

21.898 

-.942 

697 

13.488 

-68.911 

.867 

21.889 

-.857 

697 

13.417 

-68.928 

.873 

21.888 

-.772 

697 

13.426 

-68.929 

.888 

21.871 

-.687 

69  7 

13.435 

-68.938 

.887 

21.862 

-.682 
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.323 

21.084 

-.042 

3 

-4.649 

13.493 

-68.996 

.323 

21.084 

-.039 

3 

-4.649 

13.493 

-68.996 

.323 

21.084 

-.037 

3 

-4.649 

13.494 

-68.996 

.323 

21.084 

-.033 

3 

-4.649 

13.494 

-68.997 

.324 

21.083 

-.032 

3 

-4.649 

13.494 

-68.997 

.324 

21.083 

-.038 

3 

-4.649 

13.494 

-68.997 

.324 

21.083 

-.827 

3 

-4.649 

13.493 

-68,997 

.324 

21.083 

-.023 

3 

-4.649 

13.493 

-68.998 

.324 

21.882 

-.822 

3 

-4.649 

13.493 

-68.998 

.324 

21.082 

-.028 
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-4.649 

13.493 

-68.998 

.323 

21.082 

-.017 

3 

-4.649 

13.496 

-68.998 

.323 

21.082 

-.015 

3 

-4.649 

13.496 

-68.999 

.323 

21.801 

-.012 

3 

-4.649 

13.496 
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.323 

21.081 

-.010 

3 

-4.649 

13.496 
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.323 
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-4.649 
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.323 
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.326 
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-4.649 
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13.492 

-68.993 

.371 

21.003 

-.830 

3.302 
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13.496 
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13.496 
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13.40? 
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-3.302 
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-3.302 
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-3.302 
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-00.000 
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-3.302 
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-00.000 
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-3.302 

13.407 
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.374 
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.374 
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-3.302 

13.407 

-00.000 

.374 
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-.000 

-3.302 

13.407 
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-.000 
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-00.234 
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-<.409 

-0.400 

12.772 

-00.274 

.021 

21.720 

-<.113 

-0.400 

12.012 

-00.313 

.042 

21.003 

-3.01? 

-0.400 

12.032 

-00.333 

.003 

21.043 

-3.310 

-0.400 

12.002 

-00.304 

.004 

21.000 

-3.213 

•0.400 

12.031 

-08.434 

.  103 

21.300 

-4.910 

-0.400 

12.071 

-08.474 

.127 

21.320 
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-0.400 

13.010 

-88.313 

.  140 

21.407 
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21.440 
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.211 
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13.203 
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.233 

21.204 
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13.241 
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21.230 
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13.270 
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.203 
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-2.040 

-0.400 
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-00.010 

.310 
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-00.830 
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-1.372 
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-68.999 

.421 

21.081 

-.006 
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.421 
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13.49? 

-69.000 

.422 

21.000 

-.803 

7 

-6.409 
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ti 

-19.683 

13.496 

-68.999 

.613 

21.991 

-.912 

u 

-19.693 

13.496 

-69.999 

.614 

21.991 

-.896 

u 

-19.693 

13.496 

-68.999 

.613 

21.991 

-.912 
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12 

-11. 94? 

12.395 

-67.838 

12 

-11.947 

12.469 

-67.972 

12 

-11.947 

12.552 

-68.855 

12 

-11.947 

12.635 

-68. 138 

12 

-11.947 

12.717 

-69.229 

12 

-11.947 

12.799 

-68.392 

12 

-11.947 

12.991 

-68.384 

12 

-11.947 

12.961 

-68.464 

12 

-11.947 

13.941 

-68.544 

12 

-11.947 

13. 129 

-68.623 

12 

-11.947 

13. 199 

-68.791 

12 

-11.947 

13.275 

-68.778 

12 

-11.947 

13.359 

-68.853 

12 

-11.947 

13.424 

-68.927 

12 

-11.947 

13.497 

-69.999 

12 

-11.947 

13.424 

-68.927 

12 

-11.947 

13.432 

-68.935 

12 

-11.947 

13.439 

-68.942 

12 

-11.947 

13.446 

-68.949 

12 

-11.947 

13.454 

-68.957 

12 

-11.947 

13.461 

-68.964 

12 

-11.947 

13.468 

-68.971 

12 

-11.947 

13.475 

-68.978 

12 

-11.947 

13.483 

-68.986 

12 

-11.947 

13.499 

-68.993 

12 

-11.947 

13.497 

-69.899 

12 

-11.947 

13.499 

-68.993 

12 

-11.947 

13.491 

-68.994 

12 

-11.947 

13.491 

-68.994 

12 

-11.947 

13.492 

-68.995 

12 

-11.947 

13.493 

-69.996 

12 

-11.947 

13.493 

-68.996 

12 

-11.947 

13.494 

-68.997 

12 

-11.947 

13.495 

-68.998 

12 

-11.947 

13.496 

-68.999 

12 

-11.947 

13.496 

-68.999 

12 

-11.947 

13.497 

-69.999 

12 

-11.947 

13.496 

-68.999 

12 

-11.947 

13.496 

-68.999 

12 

-11.947 

13.496 

-68.999 

12 

-11.947 

13.497 

-68.999 

12 

-11.947 

13.497 

-69.989 

12 

-11.947 

13.497 

-69.999 

12 

-11.947 

13.497 

-69.898 

12 

-11.947 

13.497 

-69.999 

12 

-11.947 

13.497 

-69.999 

105 


< 


S 

ALPHA2 
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.  199 

22.112 

-8.883 

.232 

22.923 

-8.245 

.265 

21.945 

-7.677 

.299 

21.362 

-7.898 

.331 

21.788 

-6.388 

.364 

21.698 

-5.988 

.397 

21.616 

-3.297 

.439 

21.536 

-4.673 

.463 

21.456 

-4.842 

.497 

21.377 

-3.398 

.538 

21.299 

-2.742 

.563 

21.222 

-2.874 

.596 

21.147 

-1.393 

.629 

21.873 

-.783 

.662 

21.888 

-.889 

.629 

21.873 

-.783 

.632 

21.865 

-.633 

.636 

21.958 

-.364 

.639 

21.851 

-.494 

.642 

21.843 

-.423 

.645 

21.836 

-.333 

.649 

21.829 

-.283 

.652 

21.922 

-.212 

.655 

21.814 

-.142 

.659 

21.897 

-.871 

.662 

21.889 

-.888 

.659 

21.887 

-.871 

.659 

21.886 

-.864 

.659 

21.886 

-.837 

.669 

21.895 

-.839 

.669 

21.894 

-.843 

.668 

21.884 

-.933 

.661 

21.993 

-.828 

.661 

21.882 

-.821 

.661 

21.981 

-.814 

.662 

21.991 

-.887 

.662 

21.999 

-.888 

.662 

21.891 

-.897 

.662 

21.891 

-.886 

.662 

21.891 

-.996 

.662 

21.891 

-.883 

.662 

21.899 

-.884 

.662 

21.999 

-.894 

.662 

21.899 

-.883 

.662 

21.999 

-.892 

.662 

21.999 

-.881 
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12 

-11.947 

13.497 

-69.000 

.662 

21.000 

-.001 

12 

-11.947 

13.497 

-69.000 

.662 

21.000 

-.000 

12 

-11.947 

13.497 

-69.000 

.662 

21.000 

-.001 

12 

-11.947 

13.497 

-69.000 

.662 

21.000 

-.001 

12 

-11.947 

13.497 

-69.000 

.662 

21.000 

-.001 

12 

-11.947 

13.497 

-69.000 

.662 

21.000 

-.000 

12 

-11.947 

13.497 

-69.000 

.662 

21.000 

-.000 

12 

-11.947 

13.497 

-69.000 

.662 

21.000 

-.000 

12 

-11.947 

13.497 

-69.000 

.662 

21.000 

-.000 

12 

-11.947 

13.497 

-69.000 

.662 

21.000 

-.000 

12 

-11.947 

13.497 

-69.000 

.662 

21.000 

-.000 

12 

-11.947 

13.497 

-69.000 

.662 

21.000 

-.000 

12 

-11.947 

13.497 

-69.000 

.662 

21.000 

-.000 

13 

-13. see 

11.646 

-67. 149 

0.000 

22.031 

-13.300 

13 

-13.308 

11.741 

-67.244 

.036 

22.736 

-12.730 

13 

-13.300 

11.037 

-67.340 

.071 

22.660 

-12.203 

13 

-13. see 

11.933 

-67.436 

.107 

22.364 

-11.638 

13 

-13. see 

12.029 

-67.332 

.  142 

22.460 

-11.060 

13 

-13.300 

12.123 

-67.620 

.170 

22.372 

-10.470 

13 

-13.300 

12.221 

-67.724 

.213 

22.276 

-9.868 

13 

-i3.3ee 

12.316 

-67.019 

.249 

22.101 

-9.233 

13 

-13.300 

12.412 

-67.913 

.204 

22.003 

-8.626 

13 

-13.300 

12.307 

-60.010 

.320 

21.990 

-7.983 

13 

-13.300 

12.602 

-60.103 

.333 

21.093 

-7.331 

13 

-i3.3ee 

12.696 

-60.199 

.391 

21.001 

-6.663 

13 

-13.300 

12.790 

-60.293 

.426 

21.707 

-3.981 

13 

-i3.3ee 

12.002 

-60.303 

.462 

21.613 

-3.283 

13 

-13.300 

12.974 

-60.477 

.497 

21.323 

-4.373 

13 

-13. 300 

13.063 

-60. 360 

.333 

21.432 

-3.830 

13. 

-13.300 

13.134 

-60.637 

.360 

21.343 

-3. tie 

13 

-13.300 

13.242 

-60.743 

.604 

21.233 

-2.336 

13 

-13.300 

1 3. 329 

-60.032 

.639 

21.160 

-1.386 

13 

-13.300 

13.414 

-60.917 

.673 

21.003 

-.301 

13 

-13.300 

13.329 

-60.032 

.639 

21.160 

-1.386 

13 

-13.300 

13.336 

-60.041 

.643 

21.139 

-1.308 

13 

-13.300 

13.346 

-60.049 

.646 

21.131 

-1.430 

13 

-13.300 

13.333 

-60.030 

.630 

21.142 

-1.332 

13 

-13.300 

13.363 

-60.066 

.633 

21.134 

-1.274 

13 

-13.300 

13.372 

-60.073 

.637 

21.123 

-1.193 

13 

-13.300 

13.300 

-60.003 

.660 

21.117 

-1.117 

13 

-13.300 

13.309 

-60.392 

.664 

21.100 

-1.038 

13 

-13.300 

13.397 

-60.900 

.667 

21.100 

-.939 

13 

-13.300 

13.406 

-60.909 

.671 
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-.888 

13 

-13.300 

13.414 

-60.917 

.673 

21.003 

-.801 

13 

-13.300 

13.422 

-60.923 

.670 

21.073 

-.721 
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NORMAL 


-13. 300 

13.431 

-68.934 

.682 

21.066 

-.642 

-13.300 

13.439 

-68.942 

.683 

21.038 

-.362 

-13.300 

13.447 

-68.930 

.689 

21.030 

-.482 

-13.300 

13.436 

-68.939 

.692 

21.041 

-.402 

-13.300 

13.464 

-68.967 

.696 

21.033 

-.322 

-13.300 

13.472 

-68.973 

.699 

21.023 

-.242 

-13.300 

13.401 

-68.984 

.703 

21.016 

-.  161 

-13.300 

13.409 

-68.992 

.707 

21.008 

-.081 

-13.300 

13.481 

-68.984 

.703 

21.016 

-.  161 

-13.300 

13.481 

-68.904 

.703 

21.016 

-.  133 

•13.300 

13.482 

-68.903 

.704 

21.013 

-.  143 

-13.300 

13.483 

-68.986 

.784 

21.014 

-.  137 

-13.300 

13.484 

-68.987 

.704 

21.013 

-.  129 

-13.300 

13.483 

-68.988 

.703 

21.812 

-.  121 

-13.300 

13.486 

-68.988 

.703 

21.012 

-.113 

-13.300 

13.486 

-68.989 

.703 

21.011 

-.103 

-13.300 

13.487 

-68.990 

.706 

21.010 

-.097 

-13.300 

13.480 

-68.991 

.706 

21.009 

-.089 

-13.300 

13.489 

-68.992 

.707 

21.000 

-.081 

13.300 

13.498 

-68.993 

.707 

21.007 

-.073 

-13.300 

13.498 

-68.993 

.707 

21.007 

-.063 

-13.300 

13.491 

-68.994 

.708 

21.006 

-.037 

-13.300 

13.492 

-68.993 

.708 

21.003 

-.048 

13.300 

13.493 

-68.996 

.708 

21.004 

-.040 

13.300 

13.494 

-68.997 

.709 

21.003 

-.032 

13.300 

13.493 

-68.990 

.709 

21.002 

-.024 

13.300 

13.493 

-60.990 

.709 

21.002 

-.016 

13.300 

13.496 

-68.999 

.718 

21.081 

-.008 

13.300 

13.493 

-68.990 

.709 

21.002 

-.016 

13.300 

13.493 

-60.990 

.709 

21.002 

-.013 

13.300 

13.496 

-68.999 

.709 

21.001 

-.013 

13.300 

13.496 

-60.999 

.789 

21.001 

-.014 

13.300 

13.496 

-68.999 

.709 

21.001 

-.013 

13.300 

13.496 

-60.999 

.710 

21.001 

-.012 

13.300 

13.496 

-68.999 

.710 

21.001 

-.011 

13.300 

13.496 

-68.999 

.710 

21.001 

-.011 

13.300 

13.496 

-68.999 

.710 

21.001 

.  -.010 

13.300 

13.496 

-68.999 

.710 

21.001 

-.009 

13.300 

13.496 

-68.999 

.710 

21.001 

-.000 

13.300 

13.496 

-68.999 

.710 

21.001 

-.007 

13.300 

13.496 

-68.999 

.710 

21.001 

-.006 

13.300 

13.496 

-68.999 

.710 

21.001 

-.006 

13.300 

13.497 

-69.000 

.710 

21.000 

-.003 

13.300 

13.497 

-69.000 

.710 

21.000 

-.004 

13.300 

13.497 

-69.000 

.710 

21.000 

-.003 

13.300 

13.497 

-69.000 

.710 

21.000 

-.002 
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ALRHA2 
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13.3*0 

13.497 

-09. 000 

.710 

21.000 

-.002 

13.300 

13.497 

-09.000 

.710 

21.000 

-.001 

13.300 

13.497 

-09.000 

.710 

21.000 

-.002 

13.300 

13.497 

-09.000 

.710 

21.000 

-.002 

13.300 

13.497 

-09.000 

.710 

21.000 

-.001 

13.300 

13.497 

-09.000 

.710 

21.000 

-.001 

13.3*0 

13.497 

-09.000 

.710 

21.0*0 

-.001 

13.300 

13.497 

-09.000 

.710 

21.000 

-.001 

13.30* 

13.497 

-09.000 

.710 

21.000 

-.001 

13.300 

13.497 

-09.000 

.710 

21.000 

-.001 

13.300 

13.497 

-09.000 

.710 

21.000 

-.001 

13.300 

13.497 

-09.000 

.71* 

21.000 

-.001 

13.300 

13.497 

-09.0*0 

.710 

21.000 

-.001 

13.300 

13.497 

-09.800 

.710 

21.000 

-.001 

13.300 

13.497 

-09.000 

.710 

21.000 

-.001 

13.300 

13.497 

-09.000 

.710 

21.000 

-.001 

13.300 

13.497 

-09.000 

.710 

21.000 

-.000 

13.300 

13.497 

-09.000 

.710 

21.0*0 

-.000 

13.300 

13.497 

-09.000 

.710 

21.0*0 

-.000 

13.300 

13.497 

-09.000 

.710 

21.000 

-.000 

13.300 

13.497 

-09.000 

.710 

21.000 

-.000 

13.300 

13.497 

-09.80* 

.710 

21.000 

-.000 

14.733 

11.302 

-00.803 

0.000 

23.113 

-14.733 

14.733 

11.490 

-00.993 

.038 

23.0*7 

-14. 178 

14.733 

11.390 

-07. 101 

.070 

22. 099 

-13.372 

14.733 

11.700 

-07.209 

.114 

22.791 

-12.939 

14.733 

11.813 

-07.310 

.  132 

22.0*2 

-12.331 

14.733 

11.924 

-07.427 

.190 

22.373 

-11.0*9 

14.733 

12.034 

-07.337 

.227 

22.403 

-11.031 

14.733 

12. 143 

-07. 040 

.203 

22. 334 

-10.337 

14.733 

12.232 

-07.783 

.3*3 

22.243 

-9. 008 

14.733 

12.301 

-07.004 

.341 

22.130 

-0.902 

14.733 

12.470 

-07.973 

.379 

22.027 

-0.238 

14.733 

12.370 

-08.0*1 

.417 

21.919 

-7.498 

14.733 

12.003 

-0*. 180 

.433 

21.012 

-0. 740 

14.733 

12.792 

-08.293 

.493 

21.7*3 

,-3.904 

14.733 

12.897 

-08.400 

.331 

21.0*0 

-3. 170 

14.733 

13.002 

-08.303 

.309 

21.493 

-4.337 

14.733 

13.103 

-08.000 

.0*0 

21.392 

-3.324 

14.733 

13.200 

-00.709 

.044 

21.291 

-2.073 

14.733 

13.303 

-00.800 

.0*2 

21.192 

-1.0*2 

14.733 

13.402 

-00.903 

.720 

21.093 

-.911 

14.733 

13.402 

-08.903 

.720 

21.093 

-.911 

14.733 

13.412 

-00.913 

.724 

21.0*3 

-.821 

14.733 

13.421 

-00.924 

.720 

21.070 

-.730 
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4.733 

13.431 

-66. 934 

4.733 

13.446 

-68.943 

4.733 

13.436 

-68.933 

4.733 

13.439 

-68.962 

4.733 

13.4(9 

-68.972 

4.733 

13.476 

-66.981 

4.733 

13.466 

-68.991 

4.733 

13.466 

-68.991 

4.733 

13.469 

-68.992 

4.733 

13.498 

-68.993 

4.733 

13.496 

-68.993 

4.733 

13.491 

-68.994 

4.733 

13.492 

-68.993 

4.733 

13.493 

-66.996 

4.733 

13.494 

-68.997 

4.733 

13.493 

-68.998 

4.733 

13. 49( 

-68.999 

4.733 

13.496 

-68.999 

4.733 

13.496 

-68.999 

4.733 

13.496 

-68.999 

4.733 

13.496 

•68.999 

4.733 

13.496 

-68.999 

4.733 

13.497 

-69.868 

4.733 

13.497 

-69.868 

4.733 

13.497 

-69.868 

4.733 

13.497 

-69.888 

4.733 

13.497 

-69.868 

4.733 

13.497 

-69.666 

4.733 

13.497 

-69.666 

4.733 

13.497 

-69.666 

4.733 

13.497 

-69.866 

4.733 

13.497 

-69.666 

4.733 

13.497 

-69.666 

4.733 

13.497 

-69.666 

4.733 

13.497 

-69.666 

4.733 

13.497 

-69.666 

4.733 

13.497 

-69.666 

6.328 

11.663 

-66.388 

(.326 

11.263 

-66.766 

(.326 

11.327 

-66.836 

(.326 

11.449 

-66.932 

(.326 

11.372 

-67.673 

(.326 

11.(96 

-67.199 

(.326 

11.626 

-67.323 

(.326 

11.944 

-67.447 

.732 

21.866 

-.648 

.733 

21.837 

-.349 

.739 

21.847 

-.438 

.743 

21.888 

-.367 

.747 

21.828 

-.273 

.731 

21.819 

-.  164 

.734 

21.889 

-.892 

.734 

21.869 

-.892 

.733 

21.866 

-.883 

.733 

21.667 

-.874 

.733 

21.867 

-.664 

.736 

21.866 

-.833 

.736 

21.663 

-.846 

.737 

21.664 

-.837 

.737 

21.663 

-.826 

.737 

21.662 

-.818 

.738 

21.861 

-.869 

.738 

21.861 

-.869 

.738 

21.861 

-.888 

.736 

21.661 

-.887 

.736 

21.861 

-.666 

.738 

21.661 

-.866 

.738 

21.866 

-.863 

.736 

21.686 

-.664 

.738 

21.866 

-.663 

.738 

21.866 

-.862 

.738 

21.666 

-.661 

.738 

21.886 

-.681 

.738 

21.868 

-.861 

.738 

21.868 

-.661 

.738 

21.868 

-.861 

.738 

21.868 

-.881 

.738 

21.686 

-.866 

.736 

21.668 

-.886 

.738 

21.868 

-.866 

.738 

21.868 

-.666 

.738 

21.866 

-.866 

6.666 

23.412 

-16.328 

.646 

23.292 

-13.694 

.681 

23. 176 

-13.832 

.  121 

23.846 

-14.393 

.  161 

22.923 

-13.713 

.262 

22.861 

-13.819 

.242 

22.677 

-12.383 

.282 

22.333 

-11.376 
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19.329 

12.999 

-97.372 

1C. 329 

12. 193 

-97.999 

19.329 

12.319 

-97.921 

19.329 

12.442 

-97.943 

19.329 

12.S9S 

-99.999 

19.329 

12.999 

-99.191 

19.329 

12.999 

-99.312 

19.329 

12.929 

-99.432 

19.329 

13.941’ 

-99.339 

19.329 

13. 194 

-99.997 

19.329 

13.279 

-99. 799 

19.329 

13.399 

-99.992 

19.329 

13.279 

-99.799 

19.329 

13.299 

-99.792 

19.329 

13.399 

-99.993 

19.329 

13.311 

-99.914 

19.329 

13.322 

-99.923 

19.329 

13.334 

-99.939 

19.329 

13.343 

-99.949 

19.329 

13.399 

-99.839 

19.329 

13.397 

-99.979 

19.329 

13.379 

-99.891 

19.329 

13.399 

-98.892 

19.329 

13.499 

-99.993 

19.329 

13.411 

-98.914 

19.329 

13.422 

-99.923 

19.329 

13.432 

-98.933 

19.329 

13.443 

-99.949 

19.329 

13.494 

-98.937 

19.329 

13.493 

-98.999 

19.329 

13.479 

-99.979 

19.329 

13.499 

-99.999 

19.329 

13.499 

-99.999 

19.329 

13.497 

-99.999 

19.329 

13.499 

-99.991 

19.329 

13.499 

-99.993 

19.329 

13.491 

-98.994 

19.329 

13.492 

-98.993 

19.329 

13.493 

-98.999 

19.329 

13.494 

-98.997 

19.329 

13.493 

-98.999 

19.329 

13.499 

-99.999 

19.329 

13.499 

-99.999 

19.329 

13.499 

-99.999 

19.329 

13.499 

-99.999 

19.329 

13.499 

•99.999 
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normal 


19.993 

13.361 

-68.964 

18.993 

13.373 

-69.976 

18.983 

13.396 

-69.999 

19.993 

13.398 

-68.991 

19.999 

13.411 

-69.914 

18.993 

13.423 

-68.926 

18.899 

13.436 

-68.939 

19.993 

13.449 

-68.931 

19.893 

13.469 

-68.963 

18.999 

13.473 

-68.976 

19.893 

13.483 

-68.999 

18.993 

13.473 

-68.976 

19.893 

13.474 

-69.977 

19.993 

13.473 

-68.978 

19.893 

13.476 

-68.979 

18.993 

13.479 

-68.988 

19.893 

13.479 

-68.982 

19.893 

13.499 

-68.983 

19.893 

13.481 

-68.994 

18.993 

13.492 

-68.993 

18.993 

13.494 

-69.997 

19.893 

13.493 

-69.999 

18.993 

13.496 

-68.989 

19.893 

13.487 

-68.999 

19.983 

13.499 

-68.991 

19.993 

13.498 

-68.993 

19.993 

13.491 

-68.994 

19.993 

13.492 

-68.993 

18.993 

13.493 

-68.996 

19.993 

13.493 

-69.999 

19.983 

13.496 

-69. 999 

19.893 

13.496 

-68.999 

19.983 

13.496 

-68.999 

19.993 

13.496 

-68.999 

19.993 

13.496 

-69.999 

19.893 

13.496 

-68.999 

19.993 

13.496 

-66.999 

18.893 

13.497 

-69.999 

19.899 

13.497 

-69.999 

19.993 

13.497 

-69.999 

19.893 

13.497 

•69.999 

19.993 

13.497 

-69.899 

19.999 

13.497 

-69.999 

18.995 

13.497 

-69.999 

19.999 

13.497 

-69.999 

19.993 

13.497 

-69.999 

AL7HA2 


21. 1 3  C 
21.124 
21.111 
21.  >99 
2i. esc 
2 1 . 974 

21. act 
21.a49 
21.937 
21.924 

21.912 
21.924 
21.923 
21.922 
21.921 
21.929 

21.919 
21.917 

21 . 919 

21.919 

21.913 
21.912 
21.911 

21.919 

21.999 
21.997 
21.996 
21.995 
21.994 
21.992 

21.991 

21.991 

21.991 

21.991 

21.991 

21.991 

21.991 

21.999 

21.999 

21.999 

21.999 

21.999 

21.999 

21.999 

21.999 

21.999 
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-19.993 

13.497 

-69.099 

-19.993 

13.497 

-69.980 

-18.993 

13.497 

-69.000 

.-18.993 

13.497 

-69.000 

-19.093 

13.497 

-69.000 

-19.993 

13.497 

-69.080 

-18.993 

13.497 

-69.000 

-19.993 

13.497 

-69.990 

-18.993 

13.497 

-69.900 

-18.993 

13.497 

-69. 000 

-19.993 

13.497 

-69.900 

-18.993 

13.497 

-69.899 

-18.993 

13.497 

-69.090 

-18.993 

13.497 

-69.098 

-19.993 

13.497 

-69.090 

-19.823 

10.369 

-63.072 

-19.823 

18.317 

-66.029 

-19.823 

19.668 

-66.171 

-19.823 

18.821 

-66.323 

-19.823 

19.973 

-66.478 

-19.923 

11.132 

-66.633 

-19.823 

11.299 

-66, 793 

-19.823 

11.439 

-66,933 

-19.823 

11.611 

-67.114 

-19.923 

11.773 

-67.273 

-19.823 

11.933 

-67.430 

-19.923 

12.999 

-67.601 

-19.923 

12.261 

-67.764 

-19.923 

12.423 

-67.926 

-19.923 

12.384 

-68.987 

-19.823 

12.744 

-68.247 

-19.923 

12.902 

-68.403 

-19.923 

13.936 

-69.339 

-19.923 

13.299 

-68.711 

-19.923 

13.333 

-69.838 

-19.923 

13.289 

-68.711 

•19.923 

13.223 

-60.726 

•19.823 

13.239 

-60.741 

-19.923 

13.232 

-60.733 

-19.923 

13.267 

-69.770 

-19.923 

13.292 

-69.793 

-19.923 

13.297 

-69.899 

-19.823 

13.311 

-69.914 

-19.823 

13.326 

-69.929 

-19.923 

13.340 

-68.943 

zi. aea 
21.000 
21. 800 
21.000 
21.000 
21. 000 
21.909 

21.999 

21.999 

21.999 

21.999 

21.999 

21.999 

21.999 

21.999 

24.129 

23.999 
23.829 
23.677 
23.322 
23.363 
23.29 7 
23.947 
22.996 
22. 725 
22.362 
22.399 
22.236 
22.974 
21.913 
21.733 
21.395 
21.491 

21.299 
21.142 

21.299 
21.274 
21.239 
21.243 
21.239 
21.213 

21.299 
21.196 
21.171 
21.137 


-19.323 
-19. 124 
-19.499 
-17.632 
-16.979 
-16.977 
-13.249 
-14.389 
-13.399 
-12.379 
-11.624 
-19.636 
-9.612 
-8.332 
-7.434 
-6.316 
-3.138 
-3.918 
-2.636 
-1.338 
-2.636 
-2.327 
-2.398 
-2.269 
-2. 139 
-2.999 
-1.878 
-1.747 
-1.613 
-1.493 
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7 
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19.823 

13.399 

-68.898 

.897 

21.142 

-1.398 

19.823 

13.3(9 

-68.872 

.362 

21.128 

-1.217 

19.823 

13.384 

-68.887 

.866 

21.113 

-1.884 

19.823 

13.398 

-68.981 

.871 

21.899 

-  .  998 

19.823 

13.412 

-68.919 

.879 

21.889 

-.816 

19.823 

13.427 

-68.938 

.888 

21.878 

-.681 

19.823 

13.441 

-68.944 

.884 

21.896 

-.949 

19.823 

13.499 

-68.998 

.889 

21.842 

-.418 

19.823 

13.4(9 

-68.972 

.393 

21.828 

-.274 

19.823 

13.483 

-68.986 

.898 

21.814 

-.  137 

19.823 

13.497 

-69.888 

.982 

21.888 

-.888 

21.784 

9.938 

-69.441 

8.888 

24.999 

-21.784 

21.784 

18.181 

-69.684 

.848 

24.396 

-21.899 

21.784 

18.2(7 

-69.778 

.899 

24.238 

-28.297 

21.784 

18.436 

-69.939 

.143 

24.861 

-19.989 

21.784 

18.(88 

-66.111 

.198 

23.889 

-18.691 

21.784 

18.782 

-66.289 

.238 

23.719 

-17.848 

21.784 

18.9(8 

-66.463 

.289 

23.937 

-16.999 

21.784 

11.148 

-66.643 

.333 

23.397 

-16.839 

21.784 

11.322 

-66.829 

.388 

23. 179 

-19.877 

21.784 

11.986 

-67.889 

.428 

22.991 

-14.888 

21.784 

11.(92 

-67. 199 

.479 

22.889 

-13.842 

21.784 

11.878 

-67.381 

.923 

22.619 

-11.961 

21.784 

12.8(6 

-67.969 

.978 

22.431 

-18.839 

21.784 

12.293 

-67.796 

.618 

22.244 

-9.663 

21.784 

12.439 

-67. 942 

.669 

22.898 

-8.443 

21.784 

12.(29 

-68.127 

.713 

21.873 

-7.  172 

21.784 

12.887 

-68.318 

.768 

21.698 

-9.849 

21.784 

12.987 

-68.498 

.888 

21.918 

-4.472 

21.784 

13. 1(3 

-68.666 

.899 

21.334 

-3.839 

21.784 

13.333 

-68.836 

.983 

21.164 

-1.949 

21.784 

13.333 

-68.836 

.983 

21.164 

-1.949 

21.784 

13.398 

-68.893 

.988 

21.147 

-1.397 

21.784 

13.3(7 

-63.869 

.912 

21.131 

-1.244 

21.784 

13.383 

-68.886 

.917 

21.114 

-1.898 

21.784 

13.488 

-68.983 

.922 

21.897 

-.936 

21.784 

13.416 

-68.919 

.927 

21.881 

-.782 

21.784 

13.432 

-68.939 

.931 

21.869 

-.627 

21.784 

13.449 

-68.992 

.936 

21.848 

-.471 

21.784 

13.4(9 

-68.968 

.941 

21.832 

-.314 

21.784 

13.481 

-68.984 

.946 

21.816 

-.198 

21.784 

13.481 

-68.984 

.946 

21.816 

-.  198 

21.784 

13.483 

-68.986 

.946 

21.814 

-.  142 

21.784 

13.484 

-68.987 

.947 

21.813 

-.  126 

21.784 

13.486 

-68.989 

.947 

21.811 

-.118 
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-21. 7*4 

13.4*7 

-6*. 99* 

.947 

21.01* 

-.093 

-21.794 

13.4*9 

-<*.992 

.94* 

21.000 

-.079 

-21.7*4 

13.491 

-<*.994 

.94* 

21.0*6 

-.063 

-21.7*4 

13.492 

-<*.999 

.949 

21.0*3 

-.047 

-21.7*4 

13.494 

-<8.997 

.949 

21.003 

-.*32 

-21.7*4 

13.499 

-68.99* 

.93* 

21.0*2 

-.016 

-21.7*4 

13.499 

-<8.99* 

.93* 

21.0*2 

-.016 

-21.7*4 

13.49* 

-<*.999 

.93* 

21.0*1 

-.014 

-21.7*4 

13.49* 

-<*.999 

.930 

21.001 

-.013 

-21.7*4 

13.49* 

-61.999 

.930 

21.0*1 

-.011 

-21.7*4 

13.49* 

-6*. 999 

.93* 

21.0*1 

-.0*9 

-21.784 

13.496 

-60.999 

.93* 

21.0*1 

-.0*0 

-21.7*4 

13.49* 

-<8.999 

.93* 

21.0*1 

-.0*6 

-21.7*4 

13.497 

-«9. *•• 

.93* 

21.000 

-.0*3 

-21.7*4 

13.497 

-69.000 

.93* 

21.000 

-.0*3 

-21.7*4 

13.497 

-69.000 

.930 

21.000 

-.0*2 

-21.7*4 

13.497 

-69.000 

.93* 

21.00* 

-.002 

-21.784 

13.497 

-69.000 

.93* 

21.00* 

-.001 

-21.7*4 

13.497 

-69.000 

.93* 

21.  *•• 

-.0*1 

-21.7*4 

13.497 

-69.000 

.93* 

21.0** 

-.001 

-21.784 

13.497 

-<9.000 

.93* 

21.*** 

-.001 

-21.7*4 

13.497 

-69.000 

.93* 

21. *0* 

-.0*1 

-21.7*4 

13.497 

-69.000 

.930 

21.000 

-.001 

-21.7*4 

13.497 

-69.000 

.93* 

21.000 

-.0*0 

-21.784 

13.497 

-69. 000 

.930 

21.000 

-.0*0 

-21.7*4 

13.497 

-69.000 

.93* 

21.000 

-.00* 

-23.*** 

9.49* 

-64. 933 

*.000 

23.047 

-23.903 

-23.9*3 

9.626 

-63. 129 

.03* 

24.071 

-23.149 

-23.9*3 

9.8*7 

-63.310 

.1*0 

24.69* 

-22.3*2 

-23.9*3 

9.993 

-63.49* 

.13* 

24.3*4 

-21.341 

-23.9*3 

1*. 1*2 

-<3.«*3 

.20* 

24.313 

-2*. <04 

-23.9*3 

1*. 37* 

-63.879 

.23* 

24.121 

-19.7*0 

-23.9*3 

1*.974 

-6*. 077 

.30* 

23.923 

- 1 * . 83 1 

-23.9*3 

1*. 77* 

-66.279 

.349 

23.721 

-17.872 

-23.9*3 

i*.9«l 

-**.4*4 

.399 

23.31* 

-16. *47 

-23.9*3 

11.19* 

-M.  <93 

.449 

23.3*7 

-13.773 

-23.9*3 

11.4*2 

-66.9*3 

.499 

23. *93 

-14.649 

-23.9*3 

11.61* 

-67.11* 

.349 

22.  M2 

-13.472 

-23. 9*3 

11. *31 

-67.334 

.399 

22.666 

-12.239 

-23.9*3 

12.047 

-67.330 

.649 

22.43* 

-10.946 

-23.9*3 

12.2*4 

-67.767 

.699 

22.233 

-9.391 

-23.9*3 

12. 4** 

-67.9*3 

.749 

22.017 

-8. 172 

-23.9*3 

12.693 

-6*. 196 

.799 

21.  M4 

-6.6*4 

-23.9*3 

12.9*3 

-6*. 406 

.*49 

21.594 

-3. 126 

-23.9*3 

13. 1** 

-6*. *11 

.*99 

21.3*9 

-3.494 
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19 

-23.993 

13.397 

-68.819 

.948 

21.199 

-1.786 

19 

-23.993 

13.497 

-69.988 

.998 

21.999 

-.999 

29 

-26.199 

8.993 

-64.398 

8.889 

23.682 

-26. 198 

29 

-29. 199 

9.993 

-64.388 

.932 

23.412 

-23.421 

29 

-26. 199 

9.289 

-64.783 

.  193 

23.217 

-24.613 

29 

-26. 199 

9.481 

-64.984 

.  137 

23.816 

-23.769 

29 

-26. 199 

9.688 

-63. 191 

.299 

24.889 

-22.389 

29 

-26. 199 

9.992 

-63.493 

.262 

24.393 

-21.946 

29 

-26. 199 

19. 121 

-63.624 

.314 

24.376 

-28.964 

29 

-26.199 

19.346 

-63.849 

.366 

24.131 

-19.931 

29 

-26. 199 

19.376 

-66.979 

.419 

23.921 

-18.842 

29 

-26.199 

19.912 

-66.313 

.471 

23.683 

-17.693 

29 

-26.199 

11.932 

-66.333 

.323 

23.443 

-16.486 

29 

-26.199 

11.297 

-66.889 

.376 

23.298 

-13.210 

29 

-26. 199 

1 1 . 343 

-67.948 

.628 

22.932 

-13.363 

29 

-26.199 

11.796 

-67.299 

.688 

22.781 

-12.441 

29 

-26. 199 

12.949 

-67.332 

.732 

22.448 

-10.940 

29 

-26. 199 

12.391 

-67.894 

.783 

22. 196 

-9.334 

29 

-26. 199 

12.332 

-68.933 

.837 

21.943 

-7.679 

29 

-26.199 

12.799 

-68.392 

.889 

21.698 

-3.910 

29 

-26. 199 

13.941 

-68.344 

.942 

21.436 

-4.943 

29 

-26.199 

13.274 

-68.777 

.994 

21.223 

-2.973 

29 

-26. 199 

13.497 

-69.999 

1.946 

21.888 

-.999 

21 

-29.661 

8.267 

-63.778 

9.899 

26.238 

-28.661 

21 

-29.661 

8.467 

-63.979 

.833 

26.839 

-27.888 

21 

-29.661 

8.674 

-64. 177 

.  189 

23.823 

-27.073 

21 

-29.661 

9.899 

-64.393 

.164 

23.697 

-26.213 

21 

-29.661 

9.113 

-64.616 

.219 

23.384 

-23.303 

21 

-29.661 

9.343 

-64.848 

.274 

23. 132 

-24.344 

21 

-29.661 

9.383 

-63.988 

.329 

24.912 

-23.326 

21 

-29.661 

9.833 

-63.336 

.383 

24.664 

-22.248 

21 

-29.661 

18.999 

-63.393 

.438 

24.497 

-21.194 

21 

-29.661 

18.333 

-63.838 

.493 

24. 142 

-19.889 

2t 

-29.661 

18.627 

-66. 138 

.347 

23.879 

-18.598 

21 

-29.661 

19.996 

-66.499 

.692 

23.391 

-17.224 

21 

-29.661 

11.192 

-66.693 

.637 

23.393 

-13.762 

21 

-29.661 

11.484 

-66.997 

.711 

23.913 

-14.204 

21 

-29.661 

11.779 

-67.282 

.766 

22.718 

-12.343 

21 

-29.661 

12.976 

-67.379 

.821 

22.421 

-18.771 

21 

-29.661 

12.373 

-67.876 

.976 

22.124 

-8.882 

21 

-29.661 

12.667 

-68. 178 

.939 

21.838 

-6.368 

21 

-29.661 

12.936 

-68.439 

.983 

21.341 

-4.721 

21 

-29.661 

13.234 

-68. 737 

1.949 

21.263 

-2.433 

21 

-29.661 

12.936 

-69.439 

.993 

21.341 

-4.721 
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21 

-22.  661 

13.497 

-69.868 

1.894 

21.868 

-.884 

21 

-22. SCI 

13.497 

-69.888 

1.894 

21.688 

-.883 

21 

-22.661 

13.497 

-69.888 

1.894 

21.888 

-.883 

21 

-22.661 

13.497 

-69.886 

1.894 

21.888 

-.883 

21 

-22.661 

13.497 

-69.688 

1 . 894 

21.888 

-.883 

21 

-22.661 

13.497 

-69.888 

1.894 

21.888 

-.882 

21 

•22.661 

13.497 

-69.868 

1.894 

21.888 

-.882 

21 

-22.661 

13.497 

-69.888 

1.894 

21.888 

-.882 

21 

-22.661 

13.497 

-69.886 

1.894 

21.888 

-.882 

21 

-22.661 

13.497 

-69.888 

1.894 

21.888 

-.881 

21 

-22.661 

13.497 

-69.888 

1.894 

21.888 

-.881 

21 

-22.661 

13.497 

-69.888 

1.894 

21.888 

-.881 

21 

-22.661 

13.497 

-69.866 

1.894 

21.888 

-.881 

21 

-22.661 

13.497 

-69.886 

1.894 

21.888 

-.888 

22 

-31.326 

7.336 

-63.838 

8.888 

26.942 

-31.326 

22 

-31.326 

7.762 

-63.263 

.837 

26.733 

-38.364 

22 

-31.326 

7.979 

-63.482 

.114 

26.318 

-29.736 

22 

-31.326 

8.263 

-63.768 

.  171 

26.292 

-28.898 

22 

-31.326 

8.442 

-63.943 

.229 

26.833 

-27.983 

22 

-31.326 

8.696 

-64.193 

.286 

23.887 

-27.812 

22 

-31.326 

8.949 

-64.432 

.343 

23.348 

-23.974 

22 

-31.326 

9.219 

-64.722 

.486 

23.278 

-24.866 

22 

-31.326 

9.362 

-63.863 

.437 

24.993 

-23.688 

22 

-31.326 

9.  796 

-63.299 

.314 

24.781 

-22.418 

22 

-31.326 

16. 163 

-63.686 

.371 

24.394 

-21.846 

22 

-31.326 

16.428 

-63.923 

.628 

24.877 

-19.382 

22 

-31.326 

18.749 

-66.232 

.686 

23.748 

-IS. 883 

22 

-31.326 

11.867 

-66.396 

.743 

23.418 

-16.388 

22 

-31.326 

11.434 

-66.937 

.886 

23.863 

-14.477 

22 

-31.326 

11.786 

-67.289 

.837 

22.711 

-12.381 

22 

-31.326 

12. 141 

-67.644 

.914 

22.336 

-18.367 

22 

-31.326 

12.496 

-67.999 

.971 

22.861 

-8.863 

22 

-31.326 

12.844 

-68.347 

1.828 

21.633 

-3.373 

22 

-31.326 

13. 186 

-68.683 

1.883 

21.317 

-2.891 

22 

-31.326 

12.844 

-68.347 

1.828 

21.633 

-3.573 

22 

-31.326 

12.878 

-68.381 

1.834 

21.619 

.-3.313 

22 

-31.326 

12.913 

•66.413 

1.846 

21.383 

-3.834 

22 

-31.326 

12.947 

-66.436 

1.843 

21.336 

-4.791 

22 

-31.326 

12.966 

-68.483 

1.831 

21.317 

-4.323 

22 

-31.326 

13.614 

-68.317 

1.837 

21.483 

-4.238 

22 

-31.326 

13.648 

-68.331 

1.863 

21.449 

-3.989 

22 

-31.326 

13.861 

-68.384 

1.866 

21.416 

-3.717 

22 

-31.326 

13.114 

-68.617 

1.874 

21.363 

-3.444 

22 

-31.326 

13.147 

-68.638 

1.886 

21.338 

-3. 168 

22 

-31.326 

13.166 

-68.683 

1.663 

21.317 

-2.891 

TABLE  A-VI  (CONT) 


RAY  BETA  THETA<RAY>  NORMAL  S  ALPHA2  RHO  2 


22 

-31.326 

13.213 

-69.716 

1.991 

21.284 

-2.611 

22 

-31.326 

13.249 

-69. 749 

1.097 

21.232 

-2.330 

22 

-31.326 

13.279 

-69.791 

1.103 

21.219 

-2.046 

22 

-31.326 

13.319 

-69.913 

1.108 

21.187 

-1.760 

22 

-31.326 

13.342 

-69.949 

1.114 

21.135 

-1.472 

22 

-31.326 

13.373 

-69.976 

1.129 

21.124 

-1.182 

22 

-31.326 

13.499 

-69.999 

1.123 

21.092 

-.890 

22 

-31.326 

13.436 

-69.939 

1.131 

21.061 

-.393 

22 

-31.326 

13.466 

-69.969 

1.137 

21.031 

-.299 

22 

-31.326 

13.436 

-69.939 

1.131 

21.061 

-.393 

22 

-31.326 

13.439 

-69.942 

1.132 

21.038 

-.366 

22 

-31.326 

13.442 

-69.949 

1.132 

21.035 

-.336 

22 

-31.326 

13.449 

-69.949 

1.133 

21.032 

-.306 

22 

-31.326 

13.449 

-69.991 

1.133 

21.049 

-.477 

22 

-31.326 

13.491 

-69.994 

1.134 

21.046 

-.447 

22 

-31.326 

13.494 

-69.997 

1.133 

21.043 

-.418 

22 

-31.326 

13.497 

-69.969 

1.133 

21.040 

-.388 

22 

-31.326 

13.469 

-69.963 

1.136 

21.037 

-.338 

22 

-31.326 

13.463 

-69.966 

1.136 

21.034 

-.328 

22 

-31.326 

13.466 

-69.969 

1.137 

21.031 

-.299 

22 

-31.326 

13.479 

-69.973 

1.137 

21.027 

-.269 

22 

-31.326 

13.473 

-69.976 

1.138 

21.924 

-.239 

22 

-31.326 

13.476 

-69.979 

1.139 

21.921 

-.209 

22 

-31.326 

13.479 

-69.992 

1.  139 

21.918 

-.  179 

22 

-31.326 

13.492 

-69.999 

1.148 

21.015 

-.  130 

22 

-31.326 

13.499 

-69.989 

1.148 

21.012 

-.  120 

22 

-31.326 

13.499 

-68.991 

1.141 

21.009 

-.090 

22 

-31.326 

13.491 

-68.994 

1.141 

21.006 

-.060 

22 

-31.326 

13.494 

-68.997 

1.142 

21.003 

-.030 

22 

-31.326 

13.491 

-69.994 

1.141 

21.906 

-.060 

22 

-31.326 

13.491 

-68.994 

1.141 

21.006 

-.037 

22 

-31.326 

13.492 

-68.999 

1.141 

21.093 

-.034 

22 

-31.326 

13.492 

-68.999 

1.142 

21.003 

-.031 

22 

-31.326 

13.492 

-68.999 

1.142 

21.003 

-.048 

22 

-31.326 

13.492 

-68.999 

1.  142 

21.003 

-.043 

22 

-31.326 

13.493 

-68.996 

1.142 

21.094 

-.042 

22 

-31.326 

13.493 

-68.996 

1.142 

21.904 

-.039 

22 

-31.326 

13.493 

-69.996 

1.142 

21.904 

-.036 

22 

-31.326 

13.494 

-68.997 

1.142 

21.003 

-.033 

22 

-31.326 

13.494 

-68.997 

1.142 

21.993 

-.030 

22 

-31.326 

13.494 

-68.997 

1.142 

21.993 

-.027 

22 

-31.326 

13.499 

-68.998 

1.142 

21.002 

-.024 

22 

-31.326 

13.499 

-68.998 

1.142 

21.002 

-.021 

22 

-31.326 

13.499 

-69.998 

1.142 

21.002 

-.018 

22 

-31.326 

13.496 

-68.998 

1.142 

21.992 

-.013 

22 

-31.326 

13.496 

-69.999 

1.142 

21.091 

-.012 

TABLE  A— VI  (CONT) 


RAY 

•ETA 

THETA<RAY> 

NORMAL 

S 

ALPHA2 

RHO  2 

22 

-31 . 326 

13.496 

-68.999 

1.142 

21.801 

-.889 

22 

-31.326 

13.496 

-68.999 

1.142 

21.801 

-.886 

22 

-31.326 

13.497 

-69.883 

1.142 

21.008 

-.803 

22 

-31.326 

13.496 

-68.999 

1.142 

21.881 

-.086 

22 

-31.326 

13.496 

-68.999 

1.142 

21.081 

-.086 

22 

-31.326 

13.496 

-68.999 

1.142 

21.881 

-.083 

22 

-31.326 

13.497 

-68.999 

1.142 

21.801 

-.083 

22 

-31.326 

13.497 

-69.888 

1.142 

21.088 

-.083 

22 

-31.326 

13.497 

-69.888 

1.142 

21.888 

-.884 

22 

-31.326 

13.497 

-69.888 

1.142 

21.088 

-.884 

22 

-31.326 

13.497 

-69.888 

1.142 

21.888 

-.084 

22 

-31.326 

13.497 

-69.888 

1.142 

21.880 

-.004 

22 

»31.326 

13.497 

-69.888 

1.142 

21.888 

-.083 

22 

-31.326 

13.497 

-69.888 

1.142 

21.888 

-.003 

22 

-31.326 

13.497 

-69.388 

1.142 

21.088 

-.003 

22 

-31.326 

13.497 

-69.888 

1.142 

21.808 

-.002 

22 

-31.326 

13.497 

-69.808 

1.142 

21.088 

-.002 

22 

-31.326 

13.497 

-69.880 

1.142 

21.888 

-.002 

22 

-31.326 

13.497 

-69.808 

1.142 

21.888 

-.001 

22 

-31.326 

13.497 

-69.000 

1.142 

21.808 

-.001 

22 

-31.326 

13.497 

-69.008 

1.142 

21.888 

-.001 

22 

-31.326 

13.497 

-69.080 

1.142 

21.808 

-.001 

22 

-31.326 

13.497 

-69.088 

1.142 

21.888 

-.080 

23 

-34. 198 

6.733 

-62.236 

8. 888 

27.744 

-34. 198 

23 

-34. 198 

6.961 

-62.464 

.868 

27.336 

-33.465 

23 

-34.198 

7.  181 

-62.684 

.119 

27.316 

-32.683 

23 

-34. 198 

7.413 

-62.916 

.179 

27.084 

-31.846 

23 

-34.198 

7.638 

-63. 161 

.230 

26.039 

-30.949 

23 

-34.198 

7.917 

-63.428 

.298 

26.388 

-29.986 

23 

-34. 198 

3.191 

-63.694 

.337 

26.386 

-28.931 

23 

-34.198 

8.483 

-63.983 

.417 

26.817 

-27.833 

23 

-34.198 

8.786 

-64.289 

.476 

23.711 

-26.629 

23 

-34. 198 

9.  189 

-64.612 

.336 

23.388 

-23.323 

23 

-34.198 

9.449 

-64.932 

.393 

23.048 

-23.987 

23 

-34.198 

9.386 

-63.389 

.633 

24.691 

-22.367 

23 

-34.198 

18. 181 

-63.684 

.714 

24.316 

-20.688 

23 

-34.198 

13.373 

-66.876 

.774 

23.924 

-18.833 

23 

-34.198 

13.981 

-66.484 

.833 

23.316 

-16.830 

23 

-34.198 

11.481 

-66.984 

.893 

23.896 

-14.633 

23 

-34. 198 

11.831 

-67.333 

.932 

22.667 

-12.242 

23 

-34.198 

12.264 

-67.767 

1.812 

22.233 

-9.394 

23 

-34.198 

12.693 

-68. 196 

1.871 

21.804 

-6.686 

23 

-34. 198 

13. 188 

-68.611 

1.131 

21.389 

-3.493 

23 

-34. 198 

13.497 

-69.808 

1.191 

21.808 

-.080 

c 

TABLE  A— VI  (CONT) 


RAY 

BETA 

THCTA<RAY) 

NORHAL 

3 

ALPHA2 

RHO  2 

24 

-37.283 

13.431 

-88.934 

1.238 

21.866 

-.636 

24 

-37.283 

13.438 

-88.939 

1.231 

21.861 

-.390 

24 

-37.283 

13.441 

-88.944 

1.231 

21.836 

-.343 

24 

-37.283 

13.44* 

-88.949 

1.232 

21.851 

-.see 

24 

-37.283 

13.458 

-88.933 

1.232 

21.847 

-.433 

24 

-37.283 

13.433 

-88.958 

1.233 

21.842 

-.410 

24 

-37.283 

13.488 

-88.9*3 

1.234 

21.837 

-.364 

24 

-37.283 

13.484 

-68.987 

1.234 

21.833 

-.319 

24 

-37.283 

13.489 

-68.972 

1.233 

21.828 

-.274 

24 

-37.283 

13.474 

-68.977 

1.236 

21.823 

-.228 

24 

-37.283 

13.478 

-68.981 

1.236 

21.819 

-.  183 

24 

-37.283 

13.483 

-68.986 

1.237 

21.814 

-.  137 

24 

-37.283 

13.488 

-68.991 

1.237 

21.889 

-.091 

24 

-37.283 

13.492 

-68. 9*3 

1.238 

21.883 

-.046 

24 

-37.283 

13.492 

-68.993 

1.238 

21.883 

-.046 

24 

-37.283 

13.493 

-68.996 

1.238 

21.884 

-.041 

24 

-37.283 

13.493 

-68.9*6 

1.238 

21.884 

-.037 

24 

-37.283 

13.494 

-68.997 

1.238 

21.883 

-.832 

24 

-37.283 

13.4*4 

-68.9*7 

1.238 

21.083 

-.027 

24 

-37.283 

13.493 

-68.998 

1.238 

21.882 

-.823 

24 

-37.283 

13.493 

-68.998 

1.238 

21.862 

-.818 

24 

-37.283 

13.498 

-68.999 

1.238 

21.001 

-.014 

24 

-37.283 

13.498 

-68.999 

1.238 

21.801 

-.809 

24 

-37.283 

13.497 

-69.888 

1.239 

21.088 

-.003 

24 

-37.283 

13.497 

-69.888 

1.239 

21.888 

-.083 

24 

-37.283 

13.497 

-69.888 

1.239 

21.880 

-.084 

24 

-37.283 

13.497 

-69.888 

1.239 

21.088 

-.004 

24 

-37.283 

13.497 

-69.888 

1.239 

21.888 

-.083 

24 

-37.283 

13.497 

-69.888 

1.239 

21.000 

-.883 

24 

-37.283 

13.497 

-69.888 

1.239 

21.088 

-.882 

24 

-37.283 

13.4*7 

-69.888 

1.239 

21.880 

-.002 

24 

-37.283 

13.497 

-69.888 

1.239 

21.088 

-.881 

24 

-37.283 

13.497 

-69.888 

1.239 

21.888 

-.081 

24 

-37.283 

13.4*7 

-69.888 

1.239 

21.888 

-.000 

23 

-48.3*1 

4.848 

-68.331 

8.888 

29.649 

-40.391 

23 

-48.391 

3.833 

-68.338 

.864 

29.462 

-39.906 

23 

-48.3*1 

3.233 

-68.738 

.129 

29.262 

-39.332 

23 

-48.3*1 

3.431 

-68.934 

.193 

29. 846 

-38.621 

23 

-48.3*1 

3.883 

-61.187 

.237 

28.813 

-37.846 

23 

-48.3*1 

3. *37 

-61.448 

.322 

28.368 

-37.880 

23 

-48.3*1 

8.211 

-61.714 

.386 

28.286 

-36.072 

23 

-48.3*1 

8.388 

-62.811 

.438 

27.989 

-33.831 

23 

-48.3*1 

8.832 

-62.333 

.313 

27.663 

-33.921 

23 

-48.3*1 

7.  188 

-62.689 

.379 

27.311 

-32.666 

23 

-48.3*1 

7.372 

-63.873 

.643 

26.923 

-31.266 

O 
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TABLE  A- VI.  (CONT) 


ray 

•ETA 

THETA (RAY) 

NORMAL 

S 

ALPHA2 

RHO  2 

25 

-40.391 

7.995 

-63.494 

.749 

26.592 

-29.693 

25 

-44.591 

9. 458 

-63.961 

.772 

26.839 

-27.923 

25 

-44.591 

9.944 

-64.467 

.836 

25.533 

-23.913 

25 

-44.591 

9.516 

-65.919 

.991 

24.981 

-23.624 

25 

-44.591 

19.115 

-65.614 

.963 

24.382 

-28. 989 

25 

-44.591 

19.769 

-66.263 

1.929 

23.737 

-17.932 

25 

-44.591 

1 1 . 442 

-66.943 

1.994 

23.953 

-14.434 

25 

-44.591 

12. 147 

-67.634 

1.158 

22.339 

-10.331 

25 

-44.591 

12.847 

-69.334 

1.222 

21.638 

-3.334 

25 

-44.591 

13.497 

-69.444 

1.297 

21.944 

-.049 

25 

-44.591 

12.847 

-68.334 

1.222 

21.639 

-5.354 

25 

-44.591 

12.915 

-64.414 

1.229 

21.382 

-5.933 

25 

-44.591 

12.993 

-69.446 

1.233 

21.314 

-4.309 

25 

-44.591 

13.459 

-68.533 

1.242 

21.447 

-3.973 

25 

-44.591 

13.116 

-64.619 

1.249 

21.381 

-3.430 

25 

-44.591 

13. 192 

-69.645 

1.254 

21.315 

-2.879 

25 

-44.591 

13.247 

-68.734 

1.261 

21.234 

-2.320 

25 

-44.591 

13.311 

-68.814 

1.267 

21.186 

-1.753 

25 

-44.591 

13.374 

-68.877 

1.274 

21.123 

-1.177 

25 

-44.591 

13.434 

-69.939 

1.284 

21.961 

-.393 

25 

-44.591 

13.497 

-69.949 

1.297 

21.494 

-.004 

25 

-44.591 

13.436 

-68.939 

1.249 

21.961 

-.393 

25 

-44.591 

13.442 

-69.943 

1.291 

21.835 

-.534 

25 

-44.591 

13.448 

-68.951 

1.242 

21.949 

-.473 

25 

-44.591 

13.454 

-64.957 

1.242 

21.943 

-.416 

25 

-44.591 

13.469 

-69.963 

1.293 

21.937 

-.337 

25 

-44.591 

13.467 

-68.979 

1.293 

21.939 

-.297 

25 

-44.591 

13.473 

-68.976 

1.244 

21.824 

-.238 

25 

-44.591 

13.479 

-68.942 

1.285 

21.418 

-.179 

25 

-44.591 

13.495 

-69.944 

1.285 

21.812 

-.119 

25 

-44.591 

13.491 

-64.994 

1.246 

21.446 

-.064 

25 

-44.591 

13.491 

-69.994 

1.246 

21 . 946 

-.064 

25 

-44.591 

13.492 

-64.993 

1.286 

21.945 

-.034 

25 

-44.591 

13.492 

-64.995 

1.286 

21.943 

-.444 

25 

-44.591 

13.493 

-64.996 

1.286 

21.444 

-.442 

25 

-44.591 

13.493 

-64.996 

1.246 

21.844 

-.036 

25 

•44.591 

13.494 

-68.997 

1.296 

21.943 

.  -.430 

25 

-44.591 

13.495 

-68. 994 

1.246 

21.992 

-.024 

25 

-44.591 

13.495 

-64.994 

1.246 

21.992 

-.014 

25 

-44.591 

13.496 

-69.999 

1.247 

21.441 

-.012 

25 

-44. 591 

13.496 

-69.999 

1.247 

21.991 

-.496 

25 

-44.591 

13.497 

-69.944 

1.247 

21.949 

-.949 

25 

-44.591 

13.496 

-69.999 

1.297 

21.891 

-.046 

25 

-44.591 

13.496 

-68.999 

1.247 

21.941 

-.003 

25 

-44.591 

13.497 

-69.949 

1.247 

21.944 

-.445 

25 

-44.591 

13.497 

-69.949 

1.247 

21.444 

-.444 

O 
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TABLE  A— VI  (CONTJ 


THfTA<MY> 


-40.391 

13.497 

-69.000 

1.287 

21.000 

-.004 

-40.391 

13.497 

-69.000 

1.287 

21.000 

-.003 

-40.391 

13.497 

-69.000 

1.287 

21.000 

-.002 

-40.391 

13.497 

-69.800 

1.287 

21.000 

-.002 

-40.391 

13.497 

-69.000 

1.287 

21.000 

-.801 

-40.391 

13.497 

-69.000 

1.207 

21.000 

-.001 

-40.391 

13.497 

-69.000 

1.287 

21.000 

-.000 

-44.110 

3.740 

-39.243 

0.000 

30.737 

-44. 118 

-44.118 

3.899 

-39.402 

.867 

30.398 

-43.620 

-44.118 

4.071 

-39.374 

.  133 

30.426 

-43.076 

•44.118 

4.239 

-39.762 

.200 

30.238 

-42.482 

-44.118 

4. 403 

-39.966 

.267 

30.034 

-41.829 

-44.110 

4.608 

-60. 191 

.334 

29. 809 

-41.109 

-44.118 

4.933 

-60.438 

.400 

29.362 

-40.310 

-44.118 

3.200 

-60.711 

.467 

29.289 

-39.420 

-44.118 

3.311 

-61.014 

.334 

28.986 

-30.423 

‘-4.118 

3.840 

-61.331 

.601 

20.649 

-37.298 

»•*.  110 

6.226 

-61.729 

.667 

20.271 

-36.021 

-44.118 

6.630 

-62. 133 

.734 

27.047 

-34.339 

-44.118 

7. 120 

-62.631 

.801 

27.369 

-32.873 

-44.118 

7.669 

-63. 172 

.868 

26.828 

-30. 989 

-44.118 

8.283 

-63.786 

.934 

26.214 

-20.600 

-44.118 

8.978 

-64.481 

1.001 

23.319 

-23.836 

•44.110 

9.763 

-63.266 

1.068 

24.734 

-22.336 

-44.118 

10.638 

-66. 141 

1.134 

23.039 

-10.344 

-44.118 

11.390 

-67.092 

1.201 

22.900 

-13.610 

-44.118 

12.374 

-60.077 

1.260 

21.923 

-7.327 

-44.118 

11.390 

-67.892 

1.201 

22.900 

-13.618 

-44.118 

11.680 

-67.  191 

1.200 

22. 809 

-13.066 

-44.110 

11.706 

-67.209 

1.213 

22.711 

-12.301 

-44.118 

11.884 

-67.307 

1.221 

22.613 

-11.923 

-44.118 

11.903 

-67.406 

1.228 

22.314 

-11.336 

-44.110 

12.002 

-67.383 

1.233 

22.413 

-10.733 

-44.110 

12.181 

-67.604 

1.241 

22.316 

-10.120 

-44.118 

12.279 

-67.702 

1.240 

22.218 

-9.492 

-44.110 

12.378 

-67.001 

1.233 

22.119 

.-0.031 

-44.118 

12.476 

-67.979 

1.261 

22.021 

-0.196 

-44.118 

12.374 

-60.077 

1.260 

21.923 

-7.327 

-44.118 

12.671 

-60.174 

1.273 

21.826 

-6.043 

-44.110 

12.767 

-60.270 

1.201 

21.730 

-6.143 

-44.118 

12.863 

-60.366 

1.280 

21.634 

-3.431 

-44.118 

12.930 

-68.461 

1.293 

21.339 

-4.703 

•44.110 

13.031 

-60.334 

1.301 

21.446 

-3.939 

-44.110 

13. 144 

-60.647 

1.300 

21.333 

-3. 199 

-44.118 

13.233 

-60. 730 

1.313 

21.262 

-2.424 

TABLE  A-VI  (CONT) 


c 


N 


n 

i 


f 


i 


! 


RAY 

■ETA 

THCTA<RAY> 

NOAAAt. 

S 

ALAHA2 

KM  2 

1 

26 

-44.118 

13.324 

-68.827 

1.321 

21.173 

-1.632 

>  i 

4  1 

26 

-44.118 

13.411 

-68.914 

1.328 

21.886 

-.824 

1 

26 

-44.118 

13.324 

-68.827 

1.321 

21.173 

-1.632 

i  l 

26 

-44.118 

13.333 

-68.836 

1.322 

21.164 

-1.992 

* 

26 

-44.118 

13.342 

-68.849 

1.323 

21.199 

-1.472 

» 

26 

-44.118 

13.398 

-68.893 

1.323 

21.147 

-1.392 

| 

26 

-44.118 

13.399 

-68.862 

1.324 

21.138 

-1.311 

J 

26 

-44.118 

13.368 

-68.871 

1.329 

21.129 

-1.238 

[ 

26 

-44.118 

13.377 

-68.888 

1.329 

21.128 

-1.149 

J 

26 

-44.118 

13.389 

-68.888 

1.326 

21.112 

-1.868 

i 

26 

-44.118 

13.394 

-68.897 

1.327 

21.183 

-.987 

* 

26 

-44.118 

13.483 

-68.986 

1.327 

21.894 

-.986 

i 

26 

-44.118 

13.411 

-68.914 

1.328 

21.886 

-.824 

s 

26 

-44.118 

13.428 

-68.923 

1.329 

21.877 

-.743 

8 

26 

-44.118 

13.429 

-68.932 

1.329 

21.868 

-.661 

i 

26 

-44.118 

13.437 

-68.948 

1.338 

21.868 

-.979 

26 

-44.118 

13.446 

-68.949 

1.331 

21.891 

-.497 

*  i 

26 

-44.118 

13.499 

-68.997 

1.331 

21.843 

-.414 

1 

26 

-44.118 

13.463 

-68.966 

1.332 

21.834 

-.332 

* 

26 

•44.118 

13.472 

-68.979 

1.333 

21.829 

-.249 

26 

-44.118 

13.488 

-68.983 . 

.  1.333  * 

21.817 

-.  166 

! 

26 

-44.118 

13.489 

-68.992 

1.334 

21.888 

-.883 

1 

26 

-44.118 

13.488 

-68.983 

1.333 

21.817 

-.  166 

i 

26 

-44.118 

13.481 

-68.984 

1.333 

21.816 

-.198 

! 

26 

-44.118 

13.482 

-68.989 

1.333 

21.819 

-.  198 

1 

26 

-44, 118 

13.483 

-68.986 

1.334 

21.814 

-.  141 

l 

26 

-44.118 

13.483 

-68.986 

1.334 

21.814 

-.  133 

26 

-41. 118 

13.484 

-68.987 

1.334 

21.813 

-.  129 

26 

-44.118 

13.489 

-68.988 

1.334 

21.812 

-.116 

26 

-44.118 

13.486 

-68.989 

1.334 

21.811 

-.  188 

26 

-44.118 

13.487 

-68.998 

1.334 

21.818 

-.  188 

| 

1 

26 

-44.118 

13.488 

-68.991 

1.334 

21.889 

-.891 

26 

-44.118 

13.489 

-68.992 

1.334 

21.888 

-.883 

i 

26 

-44.118 

13.489 

-68.992 

1.334 

21.888 

-.879 

26 

-44,118 

13.498 

-68.993 

1.334 

21.887 

-.867 

26 

-44.118 

13.491 

-68. 994 

1.334 

21.886 

-.898 

; 

26 

-44.118 

13.492 

-68.999 

1.334 

21.889 

-.898 

26 

-44.118 

13.493 

-68.996 

1.334 

21.884 

'  -.842 

! 

26 

-44.118 

13.494 

-68.997 

1.334 

21.883 

-.833 

I 

26 

-44.118 

13.499 

-68.997 

1.334 

21.883 

-.829 

26 

-44.118 

13.499 

-68.998 

1.339 

21.882 

-.817 

26 

-44.118 

13.496 

-68. 999 

1.339 

21.881 

-.888 

26 

-44.118 

13.496 

-68.999 

1.339 

21.881 

-.888 

26 

-44.118 

13.496 

-68.999 

1.339 

21.881 

-.887 

26 

-44.118 

13.496 

-68.999 

1.339 

21.881 

-.887 

26 

-44.118 

13.496 

-68.999 

1.339 

21.881 

-.886 

f 
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(CONT) 


S  0LPHR2  RHO  2 


1.335 

21.001 

-.003 

1.333 

21. 000 

-.004 

1.333 

21.000 

-.003 

1.333 

21.000 

-.002 

1.333 

21.000 

-.002 

1.333 

21.000 

-.001 

TABLE  A- VI I 

COORDINATE  (X,Y)  VALUES,  S,  ALP HA 2  AND  RH02 
FOR  THE  FINAL  DESIGN  OF  SURFACE  NUMBER  1  IN 
FIGURE  20 


•egtn 

RAY 

Next 

RAY 

X*urf 
(ntxt ) 

Y»urf 
(next > 

S 

(next } 

«lph*2 

(next  > 

RHO  2 
(next ) 

1 

t 

.382 

.888 

.  133 

21.888 

-.888 

1 

2 

.483 

.848 

.133 

21.866 

-.642 

1 

3 

.388 

.879 

.133 

21.139 

-1.324 

1 

4 

.871 

.119 

.133 

21.228 

-2.838 

1 

9 

.774 

.139 

.  133 

21.389 

-2.824 

1 

6 

.877 

.  199 

.132 

21.488 

-3.638 

1 

7 

.988 

.239 

.  131 

21.318 

-4.334 

1 

8 

1.882 

.288 

.138 

21.648 

-3.488 

t 

9 

1.183 

.321 

.129 

21.778 

-6.496 

1 

19 

1.287 

.361 

.127 

21.932 

-7.389 

l 

11 

1.389 

.483 

.  126 

22. 186 

-8.763 

1 

12 

1.491 

.444 

.123 

22.383 

-18.833 

1 

13 

1.393 

.486 

.  121 

22.326 

-11.487 

1 

14 

1.894 

.328 

.118 

22.779 

-12.892 

1 

13 

1.798 

.378 

.114 

23.868 

-14.383 

1 

IS 

1.896 

.613 

.118 

23.399 

-16.231 

1 

17 

1.997 

.637 

.183 

23.778 

-18. 138 

1 

18 

2.897 

.781 

.  188 

24.213 

-28.213 

1 

19 

2.197 

.746 

.89* 

24.712 

-22.468 

1 

28 

2.296 

.791 

.886 

23.286 

-24.899 

1 

21 

2.394 

.838 

.878 

23.943 

-27.343 

V 

22 

2.492 

.883 

.868 

26.693 

-38.488 

1 

23 

2.389 

.934 

.837 

27.343 

-33.492 

1 

24 

2.683 

.984 

.843 

28.388 

-36.797 

l 

23 

2.788 

1.833 

.838 

29.363 

-48.313 

t 

2S 

2.873 

1.889 

.814 

38. 723 

-44.019 
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TABLE  A-VIII 


COORDINATE  VALUES  (X,Y)  FOR  THE  RAY  DIAGRAM  IN  FIGURE  22 


my  x#  va  XI  Y1 


X2  Y2  Xe  Ye  X4 


v4 


1 

a 

.110 

.287 

2 

a 

.130 

.398 

3 

o 

.  109 

.493 

4 

a 

.229 

.396 

3 

0 

.268 

.699 

6 

e 

.388 

.aa2 

7 

0 

.348 

.906 

a 

0 

.387 

1.009 

9 

0 

.427 

1.112 

ia 

a 

.466 

1.213 

n 

a 

.306 

1.318 

12 

a 

.346 

1.421 

13 

a 

.303. 

1.324 

14 

a 

.623 

1.628 

13 

a 

.664 

1.731 

16 

a 

.704 

1.834 

17 

a 

.744 

1.937 

18 

a 

.783 

2.04a 

19 

a 

.823 

2.143 

28 

a 

.362 

2.247 

21 

a 

.902 

2.33a 

22 

o 

.942 

2.433 

23 

a 

.9ai 

2.336 

24 

0 

1.021 

2.639 

23 

a 

l.aaa 

2.762 

26 

a 

i.  laa 

2.866 

.110 

.362 

.880 

.130 

.463 

.040 

.109 

.368 

.079 

.229 

.671 

.119 

.268 

.774 

.  139 

.308 

.877 

.  199 

.348 

.980 

.239 

.387 

1.082 

.280 

.427 

1.183 

.321 

.466 

1.287 

.361 

.306 

1.389 

.403 

.346 

1.491 

.444 

.383 

1.393 

.486 

.623 

1.694 

.328 

.664 

1.796 

.378 

.704 

1.896 

.613 

.744 

1.997 

.637 

.783 

2.897 

.781 

.823 

2. 197 

.746 

.862 

2.296 

.791 

.9a2 

2.394 

.030 

.942 

2.492 

.883 

.981 

2.389 

.934 

1.021 

2.683 

.984 

1.860 

2.780 

1.833 

1.10a 

2.873 

1.809 

4.008 

0.0 

30.00 

4.000 

0.0 

30.00 

4.000 

0.0 

30.00 

4.000 

0.0 

30.00 

4.000 

0.0 

30.00 

4.000 

8.0 

30.00 

4.800 

0.0 

38.00 

4.000 

0.0 

30.00 

4.000 

0.0 

30.00 

4.000 

0.0 

30.00 

4.000 

0.0 

38.00 

4.000 

0.0 

30.00 

4.000 

0.0 

30.00 

4.000 

0.0 

30.00 

4.080 

0.0 

30.00 

4.000 

0.0 

30.00 

4.000 

0.0 

38.00 

4.000 

0.0 

30.00 

4.000 

0.0 

30.08 

4.000 

0.0 

30.00 

4.000 

0.0 

30.00 

4.000 

0.8 

38.00 

4.000 

0.0 

30.00 

4.000 

8.0 

30.00 

4.000 

0.0 

30.00 

4.008 

8.0 

30.00 

-.00 

-.32 
-1.06 
-1.63 
-2.27 
-2.93 
-3. 63 
-4.41 
-3.24 
-6.  13 
-7.09 
-9.  14 
-9.28 
-10.33 
-11.90 
-13.41 
-13.08 
-16.94 
-19.02 
-21.33 
-23.99 
-27.00 
-30.44 
-34.41 
-39.03 
-44.43 
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3a  * 


CHART  PROGRAM  LISTING 


20  MINT  “• 
30  MINT  “• 
40  MINT  "• 


<0  DISP  ‘THIS  IS  CHART  •  •!" 

70  WAIT  2S00 

00  Hal n:  OPTION  BASE  0 

SO 

100  CON  A1  pha,  Tal  pha,  Rho,  Trho,  Rho  I nl 1 1 al , Trhol  ,  Rhol , Trhol , Rho2, Trho2 
110  CON  F,  23,24,  Nora,  That ai , Td* 1 t a 

120  CON  Date*, PI ott.Faai t y*, Chart S, Nam*, Nai nl#, F 1 ag*t V  hard* 

130  ' 

140  CON  StuFFF,  Redraw*,  D!  gi  t  i  zeS,  Ray_trace* 

130  CON  INTEGER  I  ,  J,  Y0_l  oop,  Nray,  Nr  ay_chart ,  Nray_F  aal  1  y ,  Nray_ItuF  F 

ICO  CON  INTEGER  Nray  tr»c«,Hr«y  density, Add  ray ,  Nc  ,  N* ,  Nbet a,  F 1 ag 

170  * 

100  CON  INTEGER  Lin*  count, Lin*  aax,M  i nc re went , Hi t  t ot *1 , P**l *ct , Hp i b 

190  CON  INTEGER  FaaiTy ,  SurF_no  ~  ~ 

200  CON  REAL  That a  cr 1 1 i ealTTo I , Nl , N2, N3, D*1 1 *  ray , Y0, Ya, Vb, Ap«rt ur* 

210  I 

220  CON  Y  bullet, Saax  Faai I y, Percent  taag* 

230  CON  xT(231 ) , Yl <237) , Xc  < 231 ) , X2< 231 ) , Y2<23 1 > , X2aax<  251 > , Y 2a ax  <  23 1  > 

240  CON  Y3C231 ) , Y4C231 ) ,  B*t a<23 1 > , S2<  251 ) , XsurF  aax(  25 1 > , YsurFaax <231  > 

230  ! 

2C0  CON  Oa< 231 > , Saax ( 231 > , Al pha2( 231 > , Rho2( 231 ) , Hi t < 2001 > 

270  ! 

200  Haln*a«Y"  I  SET  CONDITION 

290  DISP  ** 

300  PRINTER  IS  1C 
310  NORHAL 
320  FIXED  2 

330  PRINT  PAGE 

340  OVERLAP 

330  Y*-"0" 

3C0  INPUT  "SERIAL  OR  OVERLAP  FOR  I/O  PROCESSING  < DEFAULT-OVERLAP >  7  S/0*,Y# 

370  IF  <Y*a"S">  OR  <Y*a*s«>  THEN  SERIAL 
300  CALL  Di«logu* 

390  DEG 

400  PRINT  PAGE,"  Wh*n  entering  vatu**  for  Saax  in  CHART  pl*a>*  *nt*r  r*a*o 
n*bl «" 

410  PRINT  "vatu**.  Tht*  Is  required  b*caus*  th*  horizontal  axis  For  CHART  is 
Ot  vided" 

420  PRINT  "into  10  intervals.  Th*  proqraa  takes  your  entry  For  Saax" 

430  PRINT  "and  divides  by  10  to  d*t*ratn«  th*  tick  spacing.  Th*  vertical  " 

440  PRINT  "tick  aarks  ar*  under  prograa  control,  *nt*r  anything  you  wish." 

430  PRINT  LIN<2>, "PRESS  CONT" 

400  PAUSE 

470  PRINT  PAGE 

400  Gyanastics:  Y  hard*«"N“ 

490  INPUT  "DO  TOU  WANT  A  HARD  COPY  OF  THE  CONFUTED  DATA?  Y/N",Y  ha 

rd* 

300  GOSUD  Yhard 

310  CALL  Header 

320  GOSUD  Printer 

330  CALL  Header  end 

340  PRINT  LIN<2> 

330  Haln»*"N*  !  RESET  CONDITION 

SCO  Header:  DISP  *  WORKING  ..." 

370  Initial! ze_runS  FlagaO  i  RESET  CONDITION 

300  YO_alnaYa*<T*lpha-Trhoi >/Talph* 

390  YO~aax«Ybe<Tatpha-Trhoi »  'Talpha 

COO  Xnr *y *Nr ay  '  AVOIDS  NIXED  NODE  AR ITHHET IC 

CIO  D*1ys<Y0  *ex-YO_ain>/Xnray 

C20  YO_aln«Yj  a in- Bely 

C30  IF  YseO'TNEN  YO_ai n*YO_ni n*0* I y 

C40  Nray»Nray*Add_r*y~ 
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•  COUNTER  FOR  THE  <X,Y>  ARRAY 


*30 

(CO 

<70 

<00 

<90 

700  Y0  loop 

710 

720 

730 

740 

730 

7<0 

770 

700 

7*0 

000  One 
010  X 

020  N«xt  y0 
330 

A’, Plot* 

040 

030 

FAULT  •  7  ) 
0<0 

(FAULT  •  3 
070  Chart: 

000 

090 

900 

910 
920 
r  • 

930 

940 

930 

• 

9<0 

970 

900 

990 

.gRSFUL  • 

1010 

• 

1020 
1030 
1040 
1030 
1O<0 
1070 
1000 
1090 
1100 
1110 
1120 
1130 
1140 
1130 
1 1(0 
1170 
1100 
1190 

1200  Rorun: 
1210 
1220 
1230  - 
1240 


Ns-0  >  COUNTER  FOR  THE  <X,Y>  ARRAY 

He  *0 

Xt(N«>-0 

Yt<Ns>-0 

B*ta(O>-0 

>:  FOR  Y0  loop-1  TO  Nr ay  <  COMPUTE  THE  INTERCEPT  OF  THE  INCIDENT 

!  AND  THE  FIRST  SURFACE 

XyO  1 oop- YO  loop  •  AVOIDS  MIXED  MODE  ARITHMETIC 

Flag-0  ~  I  RESET  FLAG 

X-0 

Rho-Rho_l m 1 1  al 
Trho-TAN<Rho> 

Y-Y0_ain*D*I y»Xy0_l  oop 
Ns-Ns-1 
Y1<N»)-Y 
CALL  XlpostX,  Y) 

<1<NS)«X 

I  loop!  NEXT  Y0  loop 

INPUT  “ARE  YOU  USING  THE  CRT  <C>  OR  THE  9872A  PLOTTER  CP)  '  C' 

IF  <PI ot*-“C" >  OR  <P1 ol*-"e “ )  THEN  Chart 
INPUT  “PLEASE  ENTER  THE  SELECT  CODE  OF  THE  GRAPHICS  DEVICE  C DE 
).  ",Ps*l*ct 

INPUT  “PLEASE  ENTER  THE  HPIB  ADDRESS  OF  THE  GRAPHICS  DEVICE  <D 
>. “,Hpib 
CALL  Chart 
G0SU1  Yhard  and 
PRINT  LINC2T, "PRESS  CONT“ 

PAUSE 

PRINT 

PRINT  PAGE,'  If  th*  seal*  you  haw*  chosen  did  not  allow  th*  compute 

PRINT  “to  nuab*r  all  of  th*  curuas  you  may  do  *o  aanuallv  by  " 

PRINT  “answering  y*s  <Y)  to  th*  next  proppt . “ 

PRINT  LlN<  1 ) , “  If  your  answer*  is  y*S,  th*  graphics  display  of  th* 

PRINT  “plot  will  cop*  on  and  a  cursor  will  b*  in  th*  lower  left* 

PRINT  “corner.  Position  th*  cursor  by  using  th*  DISPLAY" 

PRINT  “controls.  Th*  l*tt*r  or  nuaber  will  b*  drawn  with  its  " 

PRINT  *l«ft  sid*  ou*r  th*  c«nt«r  of  th*  cursor.  You  MUST  BE 

PRINT  “because  mistakes  a r*  difficult,  if  not  iapossibl*  to  *ras«“ 
PRINT  “(consult  th*  graphics  roa  manual  (pag*  91)  to  eras*  a  letter). 

PRINT  LIN<2),“  When  you  haw*  coapl«t*d  all  of  your  lettering,” 

PRINT  “PRESS  CONT . “ 

PRINT  LIN<2), 'PRESS  CONT* 

PAUSE 

PRINT  PAGE 
Y*a“N“ 

INPUT  “BO  YOU  MANT  TO  NUMBER  ANY  OF  THE  CURVES  ?  Y/N“,Y# 

IF  <Y*-“Y“)  OR  < Y<a“y " >  THEN  C3IZE  2.3 
IF  <Y#-“Y“)  OR  < Y*-*y “ )  THEN  LETTER 
IF  <Y*-“Y*>  OR  < Y*-"y“ )  THEN  CSIZE  13/4.34 
IF  <Y*-"Y“)  OR  <Y«-“y“)  THEN  EXIT  GRAPHICS 
Buap  ert*«“N* 

INPUT  “DO  YOU  MANT  A  HARD  COPY  OF  THE  PLOT  ?  Y/N" , Duap_crt * 

IF  (Duap  crt*-“Y“)  OR  <Duap  crt*-'y“)  THEN  GOSUB  Printer 
Flag-0  “  •  RESET  CONDITION 

Y*-"N“ 

INPUT  “DO  YOU  MANT  ANOTHER  PLOT  DRAMN  TO  A  DIFFERENT  SCALE  ?  Y/N“,Y* 
IF  < Y*«“Y“ )  OR  <Y*-“y“)  THEN  Chart 
:  PRINTER  IS  1< 

PRINT  PAGE 
Y»-*N“ 

INPUT  “ARE  YOU  GOING  TO  MAKE  ANY  MORE  RUNS'1  Y/N“,Y» 

IF  < Yf-“N" )  OR  t Y*-“n“ >  THEN  Faaily 


o 


) 
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1299  Rerun2:  Change*»"N" 

1200  INPUT  "ARE  YOU  GOING  TO  CHANGE  ANY  PARAMETERS  ( n2 , n3,  AI pha, Nray,  OR 

RHO- INITIAL)?  Y^N", Change* 

1270  IP  (Change*a"N“ )  OR  (Change*a"n"  >  THEN  Gyanasties 

1280  COSUB  Printer 

1290  INPUT  "WHAT  IS  THE  NEW  VALUE  OF  RHO-INITIAL  ?“ , Rho_i n 1 1 i al 

1300  Rho_i nt  t i a  I «-l «ABS(Rho_i ni t i  al  > 

1310  Trhot «TAN(Rho  initial)- 

1320  INPUT  "HHAT  IS  THE  NEU  VALUE  OP  ALPHA?" .Alpha 

1330  Tal  pha*TAN( A 1 pha) 

1340  N2I  INPUT  “HHAT  IS  THE  NEU  VALUE  OP  n2?’,N2 

1330  INPUT  "HHAT  IS  THE  NEU  VALUE  OP  n3?*,N3 

1380  IP  N3>N2  THEN  BEEP 

1370  IP  N3>N2  THEN  DISP  “n3  MUST  BE  <  n2,  PLEASE  RE-ENTER  THE  VALUES 


1380  IF  N3>N2  THEN  UAIT  2900 

1390  IP  N3>N2  THEN  N2 

1400  IP  N3<N2  THEN  Theta  (H  t  i  e »1  -ASN(N3'N2) 

1410  Ya:  INPUT  "UHAT  IS  THE  NEU  VALUE  OF  Ya  < INCHES)  ?“,Ya 

1420  INPUT  "UHAT  IS  THE  NEU  VALUE  OP  Yb  (INCHES)  ?’,Yb 

1430  IF  Yb>-Yb  THEN  BEEP 

1440  IF  Ya)-Yb  THEN  DISP  "Ya  MUST  BE  <  Yb;  PLEASE  RE-ENTER  THE  VALUE 

S" 

1490  IP  Ya»Yb  THEN  UAIT  2900 

1400  IF  Ya>-Yb  THEN  Ya 

1470  Apert ure«Yb-Ya 

1480  Y  bullet: INPUT  "UHAT  IS  THE  NEU  VALUE  OF  Y  bullet  (  MUST  BE  >  Yb  >  ?",Y  bu 
1  let  ” 

1490  IP  Y  bul 1 et  < Yb  THEN  BEEP 

1300  IF  Y~bullet<Yb  THEN  DISP  "Y  bullet  MUST  BE  >  Yb  :  PLEASE  RE-ENT 

ER  Y  bullet." 

ISIS-  IP  Y  bul 1 et<Yb  THEN  UAIT  2900 

1320  IP  Y“bul I et< Yb  THEN  Y  bullet 

1330  INPUT  "UHAT  IS  THE  NEU  VALUE  OF  THE  No.  OF  RAYS  ?",Nray 

1340  INPUT  "UHAT  IS  THE  NEU  VALUE  OP  FOCUS  (INCHES)  ?",F 

1330  GOTO  Gyanasties 

1300  Faaily:  Paatly*»"N" 

1370  PRINTER  IS  10 

1380  INPUT  "DO  YOU  HAHT  TO  DRAH  A  FAMILY  OP  SURFACES  FROM  THE  DESIGN  CHA 

RT  ?  Y^N", Paally* 

1390  IP  (Faai ly*-"N")  OR  (Faai 1 y*a"n" )  THEN  Finished 

1000  Paal:  PRINT  PAGE i "  Xaax  is  the  aaxtaua  length  along  the  GLM  axis  which  y 

ou" 

1010  PRINT  "want  to  be  displayed." 

1020  PRINT  '  A  rule  of  theuab  is  to  add  one  inch  to  the  focal  length." 

1030  PRINT  ‘For  exaaple:  if  the  Pocal  length  is  4  inches,  key  in  9  and" 

1040  PRINT  "PRESS  CONT." 

1030  PRINT  LIH<2), "PRESS  CONT* 

1000  PAUSE 

1070  Y  herds- "N" 

1000  INPUT  "DO  YOU  UAHT  A  HARD  COPY  OP  THE  COMPUTED  DATA  ?  Y-'N'.Y  hard* 

1090  IP  ( Y  herd*-*Y")  OR  (Y  hard*-*y">  THEN  GOSUB  Yhard 

170*  CALL  Faaily 

1710  GOSUB  Yhard  end 

1720  Duap  crtSs'N" 

1730  INPUT  "DO  YOU  HANT  A  HARD  COPY  OP  THE  PLOT  ?  Y^N",Duap  ert* 

1740  IP  (Duap  ertSa-Y")  OR  (Duap  ert*a"y">  THEN  GOSUB  Printer 

1730  Y#-"H" 

1700  INPUT  "DO  YOU  UAHT  TO  DRAH  THE  PLOT  USING  A  DIFFERENT  SCALE  ?  Y/N", 

Y* 

1770  IP  ( YSa"Y" )  OR  (Y*a"y*>  THEN  Paal 

1700  HalnlSe’Y"  »  SET  CONDITION 

1790  Y  hardSa'N* 

1000  INPUT  "DO  YOU  HANT  A  HARD  COPY  OP  QA, Saax, Al pha2  and  Rho2  ?  Y/-N",Y_ 

hard* 

1010  •  GOSUB  Yhard 

1020  CALL  Header 


i 
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1939  FOR  1*1  TO  Nr  ay 

1949  IF  Lin*  count >Lin*  aax  THEM  CALL  H*ad*r 

19S9  PRINT  USING  1870;  I ,  Qa<  1)  p  Satxd  )  ,  fll  phaZ<  I ) ,  Rho2U  ) 

1849  Lin*  count*Lin*  count *1 

1979  IMAGE  14X,DDD,4~3X,9DD.DDD> 

1989  NEXT  I 

1899  CALL  Header  *nd 

1989  C0SU1  Yhard”*nd 

1918  PRINT  LIN<10>7‘PAESS  CONT" 

1929  Nainl#*’N"  !  RESET  CONDITION 

1939  PAUSE 

1949  stuff:  PRINTER  IS  1< 

1939  PRINT  PAGE,’  Pleas*  study  th*  display  and  choos*  th*  surface" 

1989  PRINT  'which  you  want  to  us*  to  g*n«rat*  a  final  surfac*. ' 

1979  PRINT  "  Uh«n  you  haw*  d*cid*d  which  surfac*  to  us*,  PRESS  CONT" 

1999  PRINT  LIN< l ) ,  "  K*y  in  th*  nuab«r  of  th*  surfac*  you  want  to  ust" 

1999  PRINT  "in  rospons*  to  th*  proapt." 

2999  PRINT  LIN<1),*  Th*  coaput«r  will  then  d*t«rain*  th*  aperture  of  " 

2919  PRINT  “th*  surfac*  and  trace  239  rays  through  th*  aperture." 

2929  PRINT  LINO),"  When  you  ar*  ready  to  proceed  PRESS  CONT." 

2939  PAUSE 

2949  GRAPHICS  I  IF  A  NOTE  TO  OPERATOR  IS  DESIRED,  THEN  ENTER  SETGU , 

2939  WAIT  2399  >  LORG  2,  MOVE  2,2  ,CSIZE  2.3  .LABEL  "PRESS  CONT  HHEN 

2949  BEEP  I  READY"  ,  SETGU  CSIZE  13/-4.S4  AFTER  THE  SECOND  BEEP 

2979  UNIT  230 

2999  BEEP 

2999  PAUSE 

2199  EXIT  CRAPHICS 

2119  INPUT  “ WHICH  SURFACE  <l,2,3,*tc.)  ?",Faaily 

2129  FaaitylNTCFaaily) 

2139  IF  Faai I y<*9  THEN  Faoily«t 

2149  IF  Faaily>Nray  faaily  THEN  Fasti  lyaNray  fasti  ly 

2139  DISP  "WORKING  ..7" 

2149  R*  stuff:  CALL  Stuff 
2179  *  GOSUB  Yhard  end 

2199  Dump  ert#«“N"- 

2199  INPUT  ‘DO  YOU  WANT  A  HARD  COPY  OF  THE  PLOT  ?  Y/'N* ,  Duap_crt# 

2299  IF  (Duap  crt#*“Y")  OR  <Duap  crt#*"y">  THEN  GOSUB  Printer 

2219  Flag«9  ~  I  RESET  CONDITION 

2229  R*draw#*“N" 

2239  INPUT  "DO  YOU  WANT  ANOTHER  PLOT  DRAWN  TO  A  DIFFERENT  SCALE  ?  Y/N“,R* 

draw# 

2248  IF  <R*drau«a"Y" )  OR  <R*drau#a*y" >  THEN  R*  stuff 

2239  Stuff_tra<*:  Y#«"N" 

INPUT  "DO  YOU  WANT  TO  TRACE  RAYS  THROUGH  THE  COMPUTED  SURFACE  ? 

IF  <Y#-*N")  OR  <Y#a"n")  THEN  R*run3 
DISP  "WORKIN'  ON  THE  RAY  TRACE  DATA..." 

FOR  Y9_ldOp"l  TO  Nray_stuf f 
Surf_no»3 
Rho2*Rho2(Y9  loop) 

X-X2<Y9  loop! 

Y«Y2<Y9~1 pop) 

CALL  Binary  s*arch(X,Y> 

Y3<Y9  toop)«Y~ 

X*Z3  ~ 
lurf^itosR 

CALL  Binary  s*arch<X,Y) 

Y4<Y9  1oop)*Y~ 

HEXT  Y8~l  oop 
Nray_t  rac«*Hray_st  uf  f 

Ray  7rac*#*"Y*  ” 

DEEP 

Y#-*N* 

INPUT  "DO  YOU  WANT  A  HARD  COPY  OF  THE  RAY  TRACE  DATA  ?  Y/'N",  Y_ha 
GOSUB  Yhard 


2299 

YxH",Y# 

2279 

2299 

2299 

2399 

2319 

2329 

2339 

2349 

2339 

2349 

2379 

2399 

2399 

2499 

2419 

2429 

2439 

2449 

2439 

rd# 

2449 
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2479  CALL  Header 

2489  $tuff_trae*l:FOR  I»1  TO  Nray_stuff 

2499  IF  Lin*  count >Lin*  max. THEN  CALL  Header 

2989  PRINT  USING  2910; I , 07y I < I > , XI C I ) , Y1 <1 ) , X2C I >  ,  Y2C I)  ,  Xc < I > , 0, Z4, 

Y4<  I  > 

2910  IN  AGE  DDD,2X,D,3C2X,DD.DDD,3X,DD.DDD>,2X,D.D,3X,DD.DD,3X,4D.2D 

2929  Lin*  count«Lin*  count* l 

2938  NEXT  I- 

2949  CALL  Header  end 

2998  G0SU1  Yhard- end 

2999  PRINT  LINC 2) , "PRESS  CONT" 

2979  IEEP 

2989  PAUSE 

2999  R*_graphi  CALL  Graph 
2S89  ~  R*drau<«"N“ 

2610  INPUT  "DO  YOU  WANT  ANOTHER  PLOT  DRAWN  TO  A  DIFFERENT  SCALE  7  Y/H",R* 

draw* 

2929  IF  CRedrau*«*Y“>  OR  CR*drauS-"y" >  THEN  R*  graph 

2939  Density:  PRINTER  IS  19 

2949  PRINT  PACE) “  Th*  point  of  maximum  ray  density  is  determined  by  yo 

u  ui sual I y . “ 

2999  PRINT  "by  placing  th*  cross-hairs  <th*y  uilt  appear  automat i c all y> 


'over  th*  position  of  maximum  ray  density." 

*  This  is  accomplished  by  using  th*  DISPLAY  controls  Cup 

"When  you  th*  get  cursor  in  th*  area  of  interest,  us*  the  S 

“with  th*  DISPLAY  controts  Cboth  th*  shift  button  and  disp 

"should  be  depressed  simultaneously)  for  fin*  posi t i oi ng. • 
2719  PRINT  LINC2) , "  Th*  position  of  the  vertical  hair  is  critical," 

2729  PRINT  "because  its  location  is  used  for  th*  position  of  th*  ’ 

2739  PRINT  "image  plane  CZ3>  on  th*  GLN  axis." 

2748  PRINT  LINC2) , "CAUTION  :  Do  not  let  th*  image  plan*  intercept  any 

rays" 

2799  PRINT  "in  th*  interior  of  th*  lens.  If  this  is  done,  those  rays" 

2798  PRINT  "ui 1 1  be  included  in  th*  histogram." 

2779  PRINT  LINC2) , "PRESS  CONT" 

2789  PAU3E 

2799  PRINT  PAGE,"  The  histogram  is  an  illustration  of  the  density" 

2999  PRINT  "of  th*  rays  that  intercept  th*  image  plane  versus  radial  " 

2818  PRINT  "distance  from  th*  GLN  axis." 

2928  PRINT  L1NC2) , "  When  th*  position  has  been  located,  PRESS  CONT." 

2939  PRINT  LINC2) , "PRESS  CONT" 

2949  PAUSE 

2999  Digit i**S«"Y" 

2999  CALL  Graph 

2979  IF  Plot*m*P*  THEN  Dens*  I  P  FOR  HP-9872  PLOTTER 

2999  Dump  ert*-"N“ 

2899  INPUT  "DO  YOU  WANT  A  HARD  COPY  OF  THE  PLOT  7  Y^N’.Dump  crt» 

2999  IF  CDump.  crt*m"Y">  OR  CDump  crtS«“y">  THEN  GOSUD  Printer 

2919  PRINT  PACE- 

2929  DISP  "NORKIN'  ON  THE  HISTOGRAH. . . " 

2939  Dense:  CALL  Density  !  PRODUSE  A  HISTOGRAH  OF  THE  RAY  DENSITY 

2948  IF  PlotSrn'P'  THEN  Denser 

2999  D<gitlz*S-*N*  I  RESET  CONDITION 

2999  INPUT  "DO  YOU  WANT  A  HARD  COPY  OF  HISTOGRAH  7  Y/N" , Dump_crt* 

2979  IF  CDump  ert#«"Y")  OR  CDump  ertfm"y“>  THEN  GOSUS  Printer 

2999  Denser:  Y*-*N" 

2999  INPUT  "DO  YOU  WANT  TO  REDRAW  THE  HISTOGRAH  FOR  A  DIFFERENT  IHAGE  P 

LANE  7  YrN",Y» 

3999  IF  <YS«"Y*>  OR  CYS«"y">  THEN  Flagme 

3919  IF  <Y»m“Y*>  OR  CY»«"y">  THEN  R*_graph 

3828  Ray  trac*»«"H" 

3939  R*run3:  YSe'N" 

3949  INPUT  "DO  YOU  WANT  TO  TRY  ANOTHER  SURFACE  CTHIS  HERNS  STARTING  OVER 


2999 

PRINT 

2979 

PRINT 

,doun, <-,->) . 

2989 

PRINT 

HIFT  button" 

2999 

PRINT 

lay  control" 

2799 

PRINT 

j 


i 

J 


? 

i 

i 

j 
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>  7  Y'N'.Y* 

3090  IF  <Yf»*Y")  OR  <Y*«*y“>  THEM  Main 

3060  GOTO  Finished 

3070  Pr interSPRINTER  IS  Id 

3080  IF  <Change*"“Y”>  OR  <Change*«“y“ >  THEN  Y  hard*a*N" 

3090  IF  <Duap  crt*«“Y">  OR  (Buap  crt*»“y“>  THEN  Y  hard*«“Y- 

3100  IF  <Y  hard*** Y" >  OR  <Y  hard*»-y->  THEN  PRINTER  IS  0 

3110  IF  <Y~hard*«“Y->  OR  <Y-hard*»*y * >  THEN  PRINT  CHR*<27> t “ t 1 0OT“ 

3120  IF  <Duap  crt*«*Y“)  OR  ?Duap  ert*«-y->  THEN  Crt 

3130  FIXES  0 

3140  FIXES  2 

3190  IF  Date****  THEN  3170 

3160  PRINT  “SATE  :  *;Date* 

3170  PRINT  LIN<1>, “Alpha  »  “ {Alpha; “degrees" ; TAB<  48) ; »Rho- initial  •  “;R 

ho  initial 

3180  PRINT  *TAN< Al pha)  ■  “ I Tal pha; TAB<  48) ; “TANCRHQ-INIT I AL >  •  "jTrhoi 

3190  PRINT  LIN< 1 > , MRH01  ■  Rhol J “degrees" ; TAB< 48 > J "That a<cr I t i c al >  •  • 

;Th«ta  epit ical ; “degrees* 

3200  ”  PRINT  LIN< 1 ) , “GLN  Radius  ■  “ ;  Y  bull at ; *  I nehes* 

3210  PRINT  “Aperture  »  Aperture; TAB<24>; “Ya  ■  “ ;  Ya;  “  i  neh“ ; TAB<48 > ; " Yb 

•  “;Yb; “inches" 

3220  FIXES  9 

3230  PRINT  LIN< 1 > , *nl  ■  “ ;  Nl ; TAB<24> ; “n2  ■  * J N2; TAB<48> ; “n3“ ; N3 

3240  FIXES  0 

3290  PRINT  LIN<1), “Nuaber  of  Rays  •  "JNray 

3260  FIXES  2 

3270  PRINT  LIN< 1 > , “Design  Focal  Point  ■  “;F;“  Inches" 

3200  PRINT 

3290  Crt  S  IF  < Buap_crt »«“Y* >  OR  <Buap  ert*«“y“>  THEN  BUMP  GRAPHICS 

3300  IF  < Y  hard**" Y“ >  OR  <Y  hard*«“y“>  THEN  PRINT  CHR*< 27»t “t I 36T" 

3310  IF  <Duap_ert*-“Y“)  OR  Tsuap  crt*»“y“>  THEN  PRINTER  IS  16 

3320  Change*»“N7  •  RESET  CONDITION 

3330  Suap  crt*»“N“ 

3340  Y  hard*"“N“ 

3390  RETURN 

3360  YhardS  IF  <Y  hard*«>*Y“>  OR  <Y  hard*»*y">  THEN  Flag*»“l* 

3370  IF  <Y”hard*«’N")  OR  < Y~hard*-“n* )  THEM  Flag*»“0“ 

3300  IF  Flag*«“l*  THEN  PRINTER  IS  0 

3390  IF  FI  ag**“ 1  *  THEN  PRINT  CHR*<27>t“H  00T“ 

3400  RETURN 

3410  Yhard  end:  IF  Flag*»“l“  THEN  PRINT  CHRf < 27>t"H 36T“ 

3420  “  IF  Flag#.-1*  THEN  PRINTER  IS  16 

3430  RETURN 

3440  Finished:  BISP  -FINISHES* 

3490  ENS 

3460  SUB  Snail 
3470  OPTION  BASE  0 
3400 

3490  CON  A1 pha. Tal pha, Rho,  Trho,Rho  ini t tal , Trhol , Rhol , Trhol, Rho2, Trho2 
3900  CON  F, 23, 24, Nora, That al , Tdol t a 

3910  CON  BataS, PI otS.Faai ly*, Chart*, Hath*, Nainl*, FI ag», Y  hard* 

3920  1 

3930  CON  Stuff *, Redraw*, Blglt 1 ze*, Ray _trace* 

3940  CON  INTEGER  I , J, Y0_l oop, Nr ay, Nray_ehart , Nray_f aai I y , Nray_st uf f 
3990  CON  INTEGER  Nray  trace, Nray  density, Add  ray, He ,Ns,Nbeta,F1  ag 
3960  I 

3970  CON  INTEGER  Line  count, Line  aax,N  I ncreaent , Hi t  tot al ,Psel ect ,Hpi b 
3900  CON  INTEGER  FaaiTy,Surf_no  “ 

3990  CON  REAL  Theta  cri t  icalTTol ,  Nl ,  N2,  N3,Bel  t a  ray,Y0, Ya, Yb, Aperture 

3600  ! 

3610  BEG 

3620  One:  Thetai a90-<Alpha*ABS<Rho> >  •  RHO  MUST  BE  BECLAREB  ELESUHERE 

3630  Alpha2*Alpha 

3640  NoraaAlpha2-90 

3690  Sina>1priaeaNl/’N2aSIH<Thetai  > 

3660  TheTaraASN<$in  ipriae) 

3670  Rhol«Alpha2*Thetar>90  f  USE  ALPNA2  INSTEAD  OF  NORN  BECAUSE  THE 
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Mil 

3C9S  Trhol«TAN(Rhot> 

37SS  SUBEND 
3710  SUB  Plot 
3720  OPTION  BASE  0 
3730  ! 

3740  CON  A1 pha, T«l pha, Rho, Trho, Rho  i nt t i al , Trhot ( Rhol , Tphol , Rho2, Trho2 
3730  CON  F , Z3, Z4, Nora, Thet  at , Td* 1 t a 

37C0  CON  Dot**,  PI  ot  *,  Faai  I  y*,  Chart  t ,  Not  n»,  Hai  nl  *,  FI  ag*,  Y  hard* 

3770  I 

3700  CON  Stuff*, Redraw*, 01 91 1 i i«», Ray _trace* 

37S0  CON  INTEGER  I , J, Y0_l oop. Nr ay , Nray_ehart , Nray_f aai 1 y , Nrav_*tuf f 
3000  CON  INTEGER  Nray  tr«»,Hrty  density, Add  ray , Ne , Ns, Nbee a, F 1  ad 
3010  I 

3020  CON  INTEGER  Lin*  count, Ltn*  a*x,N  1 ncreaent , Nt t  t ot al , Pse 1 *c t , Hpi b 
3030  CON  INTECER  Faaily.Surf  no  “ 

3040  CON  REAL  Theta  cr 1 1 1  cal 7Tol , Nl , N2, N3, De 1 1 a  ray, V0, Ya, Yb, Aperture 
3030  ! 

30C0  CON  Y  bullet, Saax  f aai 1 y , P*re*nt_t sage 

3070  CON  xT(«>, Y1 ( ♦> , Xc ( *> , X2( *) , Y2(*“, X2aax( *> , Y2aax( ♦> 

3000  CON  Y3(#> , Y4(«» ,  Beta!*)  ,  S2< •> , Xaurf *ax(*> , Y*urfaax(«> 

3090  I 

3900  CON  Qa< • > , Saex ( •) , A I pha2(  • > , Rho2( •> , Hi t ( •> 

3910 

3920  1  THE  ORIGINAL  OF  THIS  ROUTINE  HAS  OBTAINED  FRON  THE  NP  UTILITIES  LIBRARY 

3930  •  9043B  UTILITY  LIBRARY 

3940  I  PROGRAN  CARTRIDGE  2 

3930  1  09043-10203 

3940  I  PROGRAM  REGPLT 

3970  I  SUB  LAXES  NAS  ALSO  BORROWED  FRON  THE  LIBRARY 

3900 

3990  !  THIS  ROUTINE  IS  USED  TO  SET  UP  THE  LIMIT, LOCATE, SCALE  AND  CLIP  STATE 

RENT 

4000  1  STATEMENTS  FOR  THE  FOLLOWING  ROUTINES: 

4010  I  1)  CHART 

4020  I  2)  FAMILY 

4030  I  3)  STUFF 

4040  !  41  DENSITY 

4030  >  3)  RAY  TRACE 

4000  ! 

4070  Ftaga«Ftagc*0 

4000  Set  up:  IF  <Plot*e-P*>  OR  (Plot*a'p">  THEN  P9072a 

4090  Crt"  PLOTTER  IS  13, "GRAPHICS" 

4100  GOTO  4120 

4110  P9072a:  PLOTTER  IS  P»*l *« t , Hpi b, "9072A" 

4120  GCLSAR 

4130  LINE  TYPE  1 

4140  LOIR  0 

4130  LORC  3 

4100  LIMIT  0,104,0,140  •  ALL  UNITS  IN  MILLIMETERS 

4170  DATA  -2,-1, 1,2 

4100  REAB  Up, Da, Md, Mu 

4190  DATA  .39794, .09097,. 07300 

4200  READ  Log2 , LogS , Log 7 

4210  ! 

4020  IF  (Digittz**a*Y">  OR  (D 1 gi t I r**»"y * >  THEN  Digit_*cal* 

4230  IF  <Ray  trace*a"Y")  OR  <Ray  trac**e“y*>  THEN  Ray""trac* 

4240  IF  (Chart***Y">  OR  (Chart**“y">  THEH  Chart 

4230  IF  (Faai ly*«*Y*>  OR  (Faai ly*«“y*>  THEN  Faaily 

4200  IF  (Stuff*»*Y")  OR  (Stuff #«*y">  THEN  Stuff 

4270  ! 

4200  Chart:  XatneS 

4290  INPUT  "WHAT  IS  THE  MINIMUM  VALUE  OF  S  ( INCHES)  (DEFAULT  ■  0  INCH)  ?• 

,Xain 

4300  Xaa**2 

4310  -  INPUT  "UHAT  IS  THE  MAXIMUM  VALUE  OF  S  (INCHES)  (DEFAULT  >2.0  INCH) 

7*,Xaax 


c 


o 


4329 

4339 

4349 

4399 


IF  F I age ■ 1  THEN  4389 
Yatn>Alpha-l 

Yaax«98 

INPUT  "WHAT  IS  THE  MINI MUM  VALUE  OF  ALPHA2  (DEGREES)  (DEFAULT  •  ALPH 
A-l  DEO  ?", Yain 

4369  INPUT  “WHAT  IS  THE  MAX  I HUH  VALUE  OF  ALPHA2  (DEGREES)  (DEFAULT  «  30  D 

EG)  ?",Yaax 

4379  IF  Flag**!  THEN  4438 


4399 

IF 

Xai n>X»*x 

THEN 

BEEP 

4399 

IF 

X»1 n  >X»*x 

THEN 

DISP 

"Sat< 

CORRECT 

ORDER* 

4499 

IF 

Xain>X»*x 

THEN 

WAIT 

2989 

4419 

IF 

Xai n>X»4x 

THEN 

F!  agc*l 

4429 

IF 

X»» n>Xa*x 

THEN 

Chart 

4439 

IF 

Y»in>Y»*x 

THEN 

BEEP 

4449 

IF 

Yu i n>Y»4x 

THEN 

DISP 

"ALPI 

VALUES 

IN  CORRECT  ORDER" 

4499 

IF 

Yat  n)Yaax 

THEN 

WAIT 

2988 

4469 

IF 

Yat  n)Yaax 

THEN 

FI aga*l 

4479 

IF 

Yat  n>Yaax 

THEN 

4338 

Sain  IS  >  Saax 


PLEASE  RE-ENTER  VALUES  IH 


PLEASE  RE-ENTER 


4499  Xorg*Xain 

4499  Yorg«Yatn 

4999  FI «g*"Ft age  *9 

4919  GOTO  Chart_scal* 

4929  Faatly;  Xatn»Y*7n*Xorg»Yorg«9 
4939  Yaax-Y_bul  l«t 

4949  Xaax«9~ 

4999  INPUT  "WHAT  IS  THE  MAX  I HUH  VALUE  OF  X  (INCHES)  (DEFAULT  >  9  INCHES) 

?",Xaax 

4969  IF  XaaxOXain  THEN  SEEP 

4979  IF  XaaxOXatn  THEN  DISP  "Xaax  HUST  BE  >  Xatn.  PLEASE  RE-ENTER  T 

HE  VALUES  IH  THE  CORRECT  ORDER." 

4999  IF  XaaxOXain  THEN  WAIT  2999 

4999  IF  XaaxOXain  THEN  Faatly 

4699  Faatly  seal*:  LOCATE  19,139,39,199 
4619  ~  GOSUS  Saa* 

4629  SCALE  Xat n-. 9*A1S< Yt i e > , Xaax*. 9*ABS( Yt i c > , Yai n-. 9*ABS( Yt t e  ) ,  Y 

bul l*t*.9*ABS<Ytte) 

4639  CLIP  Xat n-.9*ABS(Ytie>, Xaax*. 9*ABS(Yt 1c), Yain-. 9*ABS(Ytic>, Y 

bul 1*t*.3*ABS(Ytie> 

4649  GOSUB  Saa*  axtt 

4699  SUBEXIT 

4669  Stuff!  Xatn“Yatn»Xorg«Yorg«8 

4679  Xaax»9 

4699  YaaxaY  bullet 

4699  INPUT  7UMAT  IS  THE  MAX  I HUH  VALUE  OF  X  (INCHES)  (DEFAULT  -  9  INCHES) 

?*,Xaax 

4799  IF  Xaax<aXatn  THEN  BEEP 

4719  IF  XaaxOXain  THEN  DISP  "Xaax  HUST  BE  >  Xain.  PLEASE  RE-ENTER  TH 

E  VALUES  IN  THE  CORRECT  ORDER." 

4729  IF  Xaax<*Xain  THEN  WAIT  2999 

4739  IF  XaaxOXain  THEN  Stuff 

4749  Stuff  acal*:  LOCATE  19,139,39,199 
4799  • •  GOSUB  Saa* 

4769'  SCALE  Xat n-. 9*ABS< Yt t e > , Xaax*. 9«ABS( Yt t c ) , Yai n-. 9*A»S( Yt t e ) , Y 

bul I *t ♦. 9*ABS< Yt 1 c ) 

4779  CLIP  Xat n-. 9»A1S< Yt t e ), Xaax*. 9*ABS<Yite>, Yatn-. 9*ABS(Yt  te),Y 

bullet*. 9»ABS( Yt t  c ) 

4799  COSUB  Saa*  axes 

4799  SUBCXIT 

4999  Ray_trac*l  XatneXorg-YorgM 
4B19  ”  Xaax«9 

4929  INPUT  "WHAT  IS  THE  MAX  I  HUH  VALUE  OF  X  (INCHES)  (DEFAULT  ■  9  INCH 

IS)  ?*,Xaax 

4939  IF  XaaxOXatn  THIN  BEEP 

4949  ‘  IF  XaaxOXatn  THEN  DISP  "Xaax  HUST  BE  )  Xatn.  PLEASE  RE-ENTE 

R  THE  VALUES  IN  THE  CORRECT  ORDER." 
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4*30  I F  Xaax<«Xaln  THEN  WRIT  230*  . 

49*0  IF  Xaax<*Xatn  THEN  Ray_trae* 

4070  Yaax»Y_bul I *t 

4000  Yaina-Yaax 

4090  Ray  tract  acalt:  LOCATE  13,130,23,100 

49*0  ~  “  COSUB  Saat 

4910  SCALE  Xat  n- . 3*ABS<  Yt I  c  > , Xaax*. S*ABS< Yt  i  e ),  -Y  bul  1  *t-. 23*AB 

S<Ytie>,Y  bul l*t*.23*ABS<Ytle> 

4920  ”  CLIP  Xal n-. S*ABS<  Yt 1 e  > , Xaax*. 3*AB3< Yt i  c  > , -Y_bul I  at 23* AS 

S< Yt i e ) , Y_bul 1 *t ♦. 23*ABS<  Yt 1 c ) 

4930  ~  SOSUB  Saa*  axes 

4940  CLIP  Xain,  100,  Yatn.Yaax 

4930  SUBEXIT 

49*0  Chart  teal*:  LOCATE  18,133,28,100  1  ALL  UNITS  IN  GDU'3 

4970  ~  COSUB  Saa*  I  DRAM  THE  DESICH  CHART 

4900  Xtle»<Xaax-Xatn>rl0 

4990  SCALE  Xai n, Xaax*.  23»ABS<Xt 1 c > , Yat n,  Yaax*.  23*ABS< Yt t c ) 

3000  CLIP  Xatn, Xaax, Yain, Yaax 

3*10  GOSUB  Saa*  ax** 

3*20  FRAME 

3*30  SUBEXIT 

3040  Digit  teal*!  LOCATE  0,130,30,100 
3030  ~  Xa*x-Y_bul l*t 

30*0  Xatn*-Xa*x 

3070  Xorg«Yorg»0 

3**0  Yaax-1 

3*9*  Yaln-0 

310*  GOSUB  Saa* 

3110  SCALE  -V  bullet-. 13*ABS<Yt 1 e  > , Y  bul 1 *t ♦.  13*ABS( Yt 1 c > , 13*ABS< 

Yt  le) , l*. 13*ABS< Yt  1  c  > 

312*  CLIP  -Y  bul  1-*t-.  13*ABS(Ytic>,Y  bull  *t  ♦.  1S*ABS<  Yt  I  e  > , 13*ABS< 

Ytle),t*. 13*ABS< Yt i  e  3 

313*  GOSUB  Saa*  ax*t 

3140  SUBEXIT 


!  ALL  UNITS  IN  GDU'S 
<  SRAM  THE  HISTOGRAM 


3130  Saa*_ax*s:  CALL  Lax** <Xt 1 c , Yt le , Xerg, Yorg,  1 , 1 , 2, Xat n-Xfudg*, Xaax, Yal n~Yfu 

dg*, Yaax)- 

31*0  CLIP  Xaln,Xaax, Yain, Yaax 

3170  RETURN 

3100  Saa*:  Lx*LGT<Xaax-Xatn> 

3190  Ly*LGT<Yaax-Yain> 

32*0  Xfudg*».20*<X*ax-X*ln> 

3210  Yfudg*«. 2*»< Yaax-Yal n) 

3220  Tie  aarkt:  Tettxt ic*FRACT<Lx)*<Lx<0> 

323*  ”  Xt ic*10A< INT<Lx)-l >*< 1* l .3*<  <T**txt 1 e  >Log2)  AND  <T**txt 1 c<Log3> > 

*4*( (Tettxt 1 c >*Log3)  AND  <T»*t xt 1 e<«Log7> >♦*. 3*<T*ttxt 1 c >Log7) > 

324*  T*atyt  tc*FRACT<Ly >*<Ly<0> 

323*  Yt tcal0*< INT(Ly >-l >*< 1*1 . 3*< (T*ttyt 1 e  >Log2>  AND  <T**tyt 1 e<Log3> > 

♦4*< <T**tyt le >«Log3)  AND  <T**tyt  1  e<"Log7) >♦*. 3«< T**tyt 1 e >Log7> > 

32*0  RETURN 

3270  SUBCXIT 


32*0  SUB  Lax*t<Xtle,Ytle,Xorg,Yorgf XaaJ,  YaaJ ,Mlnt let! x«,Xalr>, Xaax, Yat n, Yaax) 


329* 

330* 

331* 

3320 

333* 

334* 

333* 

33C* 

337* 

33*0 

339* 

340* 

341* 

3420 

343* 

344* 


OPTION  BASS  * 

I 

COM  Alpha, Talpha, Rho, Trho,Rho_tnl 1 1 al , Trhol , Rhol , Trhol , Rho2, Trho2 
CON  F,Z3,24,Nora(Th*tal ,Td*1ta 

CON  Date*, Plot*,Faat  1 yt, Chart*, Mat nt, Hat  nit, FI agt,  Y  hard* 

1 

COM  Stuff #, Redraw*, Dlgi t l x*t,  Ray  _t  race* 

COM  INTEGER  l ,  J«  Y0_l  oop.Nray ,  Nray_chart ,  Nray_f  aal  1  y ,  Nray  ttuff 
CON  INTEGER  Nr  ay  trace, Nray  d*ntl~y,Add  r*y,Nc  ,N*,Nb*ta,Fl  ag 

I 

COM  INTEGER  Lin*  eount,Lin*  aax,N  lner*a*nt , HI t  total ,P**l*et,Hplb 
COM  INTEGER  FaalTy , Surf_no  “ 

COM  REAL  Th*ta  er  1 1 1 cal ,  Tol , Nl , N2, N3, 0*1 1 a  ray , Y0, Ya, Yb, Ap*rtur* 

I 

COM  Y  bu!l*t,Saax  feat ly, Percent  laag* 

COM  xT<*>, Y1 (•> ,Xe <*>, X2<*>,  Y2<*7,  X2aax< •) ,  Y2aax<*> 


I 


i 

i 


o 
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3499  COM  Y3<*>, Y4< *> , B*t a< *> , S2<*> , X»urfaax< *> , Y*urfaax<*> 

3449  I 

3479  COH  Q*<*>,$a«x<*),A1ph*2<<Olftho2<»>,Htt<»> 

3499  I 

3499  I 

3399  !  THIS  ROUTINE  IS  USES  TO  ORAN  AND  LABEL  THE  AXES  FOR  THE  rSLLOUINC 

3319  I  ROUTINES: 

3929  I  1>  CHART 

3339  I  2)  FAMILY 

3949  *  3)  STUFF 

3339  •  4)  DENSITY 

3399  I  3)  RAY  TRACE 

3379  I 

3999  Flagal 

3999  DEG 

3999  LINE  TYRE  1 

3919  LDIR  9 

3929  LORG  3 

9939  IF  <Xain>«X*ax>  OR  <Yat«>«Y*ax>  THEN  SUBEXIT 

3949  GRAPHICS 

9939  Xfudg**. 02*<X*ax-X*i n) 

3999  Yfudg*a.02*<Yaax-Yain) 

3979  Xaajal 

9999  Yaaj-1 

9999  H1nticiz*»2 

3799  IF  <D1gitiz**«'Y‘>  OR  <Di  gi  1 1 *•*•>■  >  THEN  Digit_axi* 

3719  IF  <Ray  tr*c**a"Y"  )  OR  <Ray  trae«»a‘y*>  THEN  Ray- tract  axi* 

3729  IF  <Chart*-*Y*>  OR  <Chart*aTy * >  THEN  Chart_axi» 

3739  IF  <Faai ly*-*Y*>  OR  <Faai ty*»*y‘ >  THEN  FaaTly  axi* 

3749  IF  <Stuff*a"Y">  OR  < Stuff #»*y' >  THEN  Stuff  ax7* 

3739  Chart_axi»:  LINE  TYPE  3 

3799  -  GRID  Xt  i  e , Yt i c ,  Xorg, Yorg, Xaaj , YaaJ , 2*Hi nt t e»i z* 

3779  LINE  TYPE  1 

3799  GOTO  Lab* lx 

3799  Faaily  axis:  AXES  Xt  i  c,  Yt t c ,  Xorg,  Yorg, Xaaj , YaaJ, Hint  test z# 

3999  -  GOTO  Lab* lx 

3919  Stuff  axis:  AXES  Xt t e , Yt i e , Xorg, Yorg, Xaaj , YaaJ ,ni nt t c»t z* 

3929  ~  GOTO  Lab* lx 

3939  Ray_trac*_axls:  AXES  Xt i « , Yt  1  e , Xorg, Yorg, Xaaj , YaaJ , Hi nt i csi z* 

3949  -  -  GOTO  Lab* lx  ray 

3939  Digit  axi»:  AXES  . 1 , . 1 , 9, 9,1, 1 , 2 
3999  -  GOTO  Lab* lx  d 

3979  Lab*lx:  FIXED  3 

3999  LOIR  99 

3999  LORG  8 

3999  Parx:  FOR  A-Xorg  TO  Xaax  STEP  ADS<Xttc> 

3919  HOVE  A, Yorg-Yf udg* 

3929  LABEL  USING  3939; A 

3939  IMAGE  DD.D 

3949  IMAGE  DD.DD 

3939  IMAGE  9.K 

3999  NEXT  A 

3979  L*b*ty:  LDIR  9 

3999  LORG  9 

3999  Pary:  FOR  AaYorg  TO  Yaax  STEP  ABS< Yt  t  c  >  I  FOR  CHART  AND  FAMILY 

4999  MOVE  Xorg-Xf udg*, A 

4919  LABEL  USING  3939; A 

4929  NEXT  A 

4939  GOTO  Lab* I 

4949  Lab*lx  ray:  LDIR  93 

4939  ~  LORG  9 

4949  Parx  ray:  FOR  AaXorg  TO  Xaax  STEP  ADS(Xttc> 

4979  ~  MOVE  A, Yorg-Yf udg* 

4999  LABEL  USING  3939,* A 

4999  NEXT  A 

4199  Lab*ly  ray:  LDIR  9 

4119  “  LORG  9 
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Pary_ray:  FOR  A»-Y_bullet  TO  Y_bullet  STfP  ABS<Ytie>  I  FOR  RAY_TRACE 

HOVE-Xor g-Xf udge , ft  — 

IF  ft-0  THEN  LABEL  USING  3930; ft 
IF  A»0  THEN  Next  * 

LABEL  USING  6170;A- 
IMAGE  00.9 

Next  a:  NEXT  ft 

GOTO  Label 
Label  X  d:  LOIR  90 
LORG  0 

FOR  fta-Y  bullet  TO  Y  bullet  STEP  .1 
HOVB-A, Yorg-Yf udge 
IF  ft-0  THEN  LABEL  USING  5950;ft 
IF  A-0  THEN  GOTO  Next  aa 
LABEL  USING  S170;A 
Next  aa:  NEXT  A 
Labely  d:  LOIR  0 
LORG  3 

FOR  Aa0  TO  Y  bullet  STEP  .1 
HOVE  Xorg-Xf udge , A 
IF  A>0  THEN  LABEL  USINC  3950;ft 
IF  Aa0  THEN  GOTO  Nexta 
LABEL  USINC  3170; A 
Nexta:  next  a 

Label  :  SETGU 
LOIR  0 
LORG  3 
CSIZE  2.3 

IF  <Dlgitlze*e*Y*>  OR  <01glttzef«*y*>  THEN  Dtglt_label 
IF  <Ray  traee*«*Y‘>  OR  <Ray  trace*e*y*>  THEN  Ray-trace  label 
IF  <Chart*»‘Y*  >  OR  <Chart*eTy" >  THEN  Chart  label- 
IF  (Faal 1yS>*Y')  OR  <Faat I y*«*y * >  THEN  FaaTly  label 
IF  <StuffS«‘Y*>  OR  <3tuff*«*y*>  THEN  Stuff„label 
Chart_label:  Centerx>74. 80 
Cent ery *34 


HOVE  . 3*Centerx,9 
LABEL  USINC  6300 ;F 

INAGE  ‘Design  Focal  Point  :  *,00.00,*  Inches* 
MOVE  1. 3*Centerx, 9 
LAOEL  USING  6330;Nray  chart 
IMAGE  ’Nuaber  of  Rays-:  *,K 
MOVE  . SeCenterx, 3 
LABEL  USING  3330;ftlpha 
IMAGE  ’Alpha  :  *00.90*  deg* 

HOVE  1. SeCenterx, 3 
LABEL  USING  S390;N2 
IMAGE  *n2  :  *,0.00000 


M90 

•700 

«riB  f 

0720 

0790 

0740 

0790 

0700  • 

0770 


eat ly_label 


CSIZE  9 

HOVE  Centerx, IS 

LABEL  *S  :  Distance  Along  Refracted  Ray  In  the  Lens  <  Inches  > 

LOIR  90 

MOVE  .0, Cent ery 

LABEL  ‘Alpha  2  :  Angle  of  the  Tangent  Line  at* 

MOVE  4.0, Cent ery 

LABEL  ’the  Second  Surface  (  Degrees  >* 

I 

GOTO  Sndjabel 

:  Centerx«Centerx  faat?y*72.3 
Cent  ery -Cent  er y-f  aa 1 1 y *00 . 3 

I 

IF  <Stuf f ••* Y* )  OR  <Sluff*e*y’>  THEN  Stuff_label 
MOVE  .SeCenterx, 9  “ 

LABEL  USINC  0300; F 
HOVE  I.SeCenterx,9 


I 


LABEL  USING  6330; Nray_f a»i ly 
WOVE  .•  5»Cantarx,  5  ~ 

LABEL  USING  6360; Alpha 
HOVE  l.3»Cantarx,3 
LABEL  USING  6390; N2 
! 

NOVE  Cantarx,23 

LABEL  "Bistanea  Along  GLH  Axis  (inchas)" 

CSIZE  3 

NOVE  Cantarx, 13 
LABEL  "FAHILY  OF  SURFACES" 

LOIR  90 

NOVE  1.3,Cantary 

LABEL  "Radial  Bistanea  fro*  tha  Axis  (Inchas)* 


GOTO  End_labal 
Stuff_la5al:  C#ntarx*?2. 3 
Cant ary "44. 3 


HOVE  . 3*Canlarx,9 
LABEL  USING  S5S0;F 
HOVE  l.S*Cantarx,9 
LABEL  USING  S33SJ Nray_*tuff 
HOVE  . 3aCantarx,3 
LABEL  USING  6340; Alpha 
HOVE  1.3aCantarx,S 
LABEL  USING  6390 ;N2 
HOVE  Cantarx,3 
LABEL  USING  7070; Apart yra 
IH ACE  *Apartura  :  "DD.DBfl"  inch" 

I 

HOVE  Cantarx, 23 

LABEL  "Bistanea  Along  CLH  Axis  (Inchts)" 

CSIZE  3 

HOVE  Csntsrx, 13 
LABEL  USING  7140;F«pi1y 
I NAGS  "SURFACE  NUNBCR  *K 

I 

LOIR  90 

HOVE  l.SiCsntory 

LABEL  "Radiol  Blstanc*  fro m  tha  Axis  (Inchas)" 


GOTO  Bnd_l aba  I 

Ray_traea_ladal :  Cantarx*72.3 
Cant ary *42. 3 


I  CHANGE  IN  GRAPH  AS  HELL 


HOVE  t.3*Caniarx, 9 
LABEL  USING  S330;Nray_traca 
HOVE  . 3*Cant  ar x , ; o 
LABEL  USING  7280; Rho  initial 
IHAGE  *  Inc i dant  Ray  Angla  :  ",3D.DD,"  dag" 
HOVE  .3aCantarx,4 
LABEL  USING  7070; Apartura 
HOVE  1 .3*Cantarx, 4 
LABEL  USING  4390; N2 
HOVE  .3*Cantarx,2 
LABEL  USING  4340; Alpha 
HOVE  Cant arx, 23 

LABEL  "Bistanca  Along  tha  CLH  Axis  <  inchas  >" 

I 

CSIZE  3 

HOVE  Cant arx ,13 
LABEL  USING  74I0;Faa< ly 
IHAGE  "SURFACE  NUNBER  ",K 
I 

LOIR  90 

HOVE  1.3, Cant ary 


C 
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LABEL  "Radial  Dtatanc*  Fro*  tht  fix i »  (  ineho*  >* 


GOTO  End_lab«l 
Di9it_lab«I:  C«nt«rx»6l . 38 
C«nt«ry»SS 


HOVE  1 . 3*C«nt irx , 1 3 
LABEL  USING  SSSOJNray  irui 
HOVE  C«nt«rxx2,9 
LABEL  USING  7330;  Hi  t_t  ot  al 

IHACE  "Nuab«r  of  Hitt  on  tho  Iaag*  Plan*  :  “,K 
HOVE  I . S*Cdnt#rx, 9 
LABEL  USING  7380; P*re*nt_i aag« 

IHACE  *X  of  Ray*  to  Iaag*  Plano  :  *,30.DD 
HOVE  1 . 3*C*nt«rx, 3 
LABEL  USING  7810;  23 

IHACE  Maas*  PI  on*  :  *,00.  DO,*  ineho** 

HOVE  . 3*C#nt  »rx, 3 
LABEL  USING  7640; N_i neroaont 
IHACE  *Nuab«r  of  Ineroaont*  10,1.1]  :  *,K 
I 

CSI2E  3 

HOVE  Contorx , 20 

LABEL  ’Noraalizod  Nuabor  of  Hitt  v»  Di»tanco  froa  th*  GLH  Ax 


HOVE  Contorx/2,13 
LABEL  USING  77l0;faany 
IH AGE  ‘SURFACE  NUHBER  *,K 

I 

End  labal:  CSI2E  13x4.34 
LOIR  0 
LORG  3 
SETUU 
SUBENO 

SUB  Xlpo»<X,Y) 

OPTION  BASE  0 

I 

COH  Alpha, Talpha,  Rho, Trho,  Rho_i ni t  i  al ,  Trhoi ,  Rhol ,  Tphol , RhoS, Trho2 

INTEGER  Z 
DEC 

DEF  FNYl<Y>»Y»T*lph*x<T*lpha-Trhoi )  !  FINDS  THE  Y-VALUE  OF  THE  INTERCEPT 

!  OF  THE  RAY  AND  THE  FIRST  SURFACE 
DCF  FNXl<Y>«YxTalpha  I  FINDS  THE  X-VALUE  OF  THE  INTERCEPT  OF  THE  RAY 
•  AND  THE  FIRST  SURFACE 

Y«FNY1<Y> 

X«FNX1<Y> 

SUBCND 

SUB  Char 

Ona:  FOR  Z-0  TO  79 

IF  Z»79  THEN  7980 
PRINT  CNR*<22*>,‘ 

IF  Z-79  THCH  PRINT  CHR*<220> 

NEXT  Z 
SUBCXIT 
SUBCND 

SUB  Dlalooua 
OPTION  BASE  0 

I 

COH  Alpha, Talpha, Rho, Trho,Rho_lnt  1 1 al ,  Trhoi , Rhol , Trhoi ,Rho2, Trho2 
COH  F,Z3,Z4,Nora, Thotai ,Tdotta 

COH  Data*, Plot*, Faai  lyS, Chart*, HatnS.HainlS, Flag*, Y  hard* 

1 

COH  Stuf f*, Redraw*, Di 91 1 1  zo*,  Ray_.tr  aco* 

COH  INTEGER  I ,  J,  Y0_t  oop.Nray.Nray^ehart  ,Nray_f  a*  1  ly,Nrav_»tuf  f 
•  COH  INTEGER  Hray_trae«,Nr»y_d*n»ity,Add_ray,Ne,Ns,Nb4ta,Flao 


€ 


con  INTEGER  Lin*  count, Lin*  a*x,N  i nc r»**nt , Hi t  tot el , Ps* 1 *c t , Mpi b 
COH  INTEGER  Fe»iTy,  Surf  no 

COn  REAL  Thete  c r i t i e *1 7To 1 , N 1 , N2 , N3, 0* I t e  r«v, Y0, Ye, Yb, Apert ur* 

I 

CON  V  bull*t,Siu  fs*i  I y, Percent  ieeg* 

con  xT(*>,Yl<*>,Xe<*),X2<*>, Y2(»7,  X2»ex(e>, Y2»ex<»> 

con  Y3<*), Y4(#>,B*t*<»>,S2<»>,Xsurf««*x<*>, Ysurf*ex<»> 

I 

con  Oe(e) , SP*x(e) , At  ph*2< •) , Rho2(*> , Hi t <•> 

! 

i 

•  THIS  AOOTINE  INITIALIZES  HOST  OF  THE  VARIABLES  USEff  IH  THE  PROGRAM 


DEG 

Ini t i *1 i 


z*  top:Alphe»Zl 

Tel phe«TAN< Rl  phe) 

To  I -.00001 

Z3-Z4-50 

Nl-l 

N2-4 

N3»l 

F-4 

Y  but let-1.  1 

Ye-0  !  WHEN  YA  •  e  THEN  THEN  THE  BORDERS  OF  THE 

Yb-Y  bullet  !  APERTURE  ARE  ILLUSTRATED  BY  DRAWING  A 

Aperture-Yb-Ye  !  RAY  AT  Y-Ye  AND  Y«Yb.  THIS  IS  DOHE  BY 

Add  rey-0  !  ADDING  A  RAY  TO  ALL  NRAY  x  DECLARATIONS 

Nrey-lS 

Rho_t  n  i  t  i  *1  -Rho-0 

Trhoi -Trho-TAN(Rho_i ni t  i  *1  ) 

L1n*_eount-0 

U(n”*tx*4S 

N_i ncreaent -100 

Ps*l*ct-7 

Hpib-3 

Plot«a*C" 

Fe*ilyS-*N* 

Stuf f 0-"N" 

Oiglttz*0-“N* 

RedrevS-’N* 

Rey_tr*e**-*N“ 

RACE,  “Not*  to  th*  operetor:  “ 

LIN(2> , *  When  *  request  for  inforpption  is  pieced  on  th*  screen* 
“tuo  options  exist;* 

LINO),*  l>  key  in  th*  required  inforpption  snd  PRESS  CONT.“ 

*  2)  PRESS  CONT  if  th*  deterpereaeter  or  other  response  * 

*  hpp  not  or  will  not  Cheng*  fro*  th*  previous  entry.  If  in 

*  doubt,  key  In  th*  correct  response  or  dete  end  PRESS  CONT 


MIS 

0*20 

M3S 

rfeee* 

0440 

MSS 

MSS 

SS7S 

MSS 

MSS 

SPSS 

s?is 

S72S 
S73S  SI 
S74S  • 


PRINT  LINO), "PRESS  CONT* 

PAUSE 

PRINT  PAGE, “The  sign  convention  is 

PRINT  LIN<1),*  l>  th*  origin  is  pieced  et  the  vertex  of  th*  first  su 

PRINT  *  end  th*  GLH  ex  is.* 

PRINT  *  2)  distences;  positive  to  th*  right  of  th*  origin." 

PRINT  *  positive  ebov*  th*  origin  (Rediel  distence).* 

PRINT  *  positive  out  of  the  eertdlen  plen*  (screen).* 

PRINT  *  <i*.  e  right  hend  systee. )* 

PRINT  *  3)  engtes:  POSITIVE  IP  eounter-clockvis** 

PRINT  *  rotetlon  fro*  the  GLH  exis  to  th*  rey* 

PRINT  LIN<2>, “PRESS  CONT’ 

PAUSE 

phe:  PRINT  PAGE,*  Alphe  is  the  eng  I*  of  tnclinptlon  <l*.  th*  cone* 

PRINT  *helf-engt*>  of  th*  FIRST  turfec*  vith  respect  to  th*  GLn-exis 
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•790  PRINT  LINO),*  The  current  t/ilut  qf  ALPHA  i  *“ ;  A1  pha;  "  degrees  “ 

•700  INPUT  "WHAT  IS  NEU  VALUE  OP  ALPHA  C DECREES >?*, A1 pha 

9779  Talpha»TAN(Alpha) 

•780  Index:  PRINT  PACE,*  The  1 tn*  tystea  it  assueed  to  be  operating  in  air.* 

•708  PRINT  "Therefore  tha  first  index  of  refraction  i»  defined  aa  nl»  1.80000 
■ 

••••  PRINT  LINO) ,  *  It  la  aaauaad  that  nl  <  n2" 

•818  PRINT  *  and  n2  >  n3. " 

0820  N2:  INPUT  “WHAT  IS  n2  < DEFAULT  VALUE  «  4)  ?*,N2 

•830  N3:  INPUT  “NNAT  IS  n3  (DEFAULT  VALUE  ■  1)  7",N3 

8840  IF  N3<N2  THEN  Thata  critical  ■ASN(N3/'N2> 

•898  IF  N3>N2  THEN  BEEP 

•880  IF  N3>N2  THEN  D1SP  *n2  MUST  BE  )  n3.  PLEASE  RE-ENTER  n2  AND  n3. * 

•878  IF  H3>N2  THEN  UAIT  4000 

••••  IF  N3 >N2  THEN  N 2 

•898  Rho_initial;  PRINT  PACE,*  Tha  raya  incident  on  tha  firat  aurface  are  * 
•988  ~  PRINT  'aaauaad  to  be  parallel  to  the  CLtt-axia.  “ 

•918  PRINT  LINO),  "PRESS  CONT* 

•928  PAUSE 

•938  Rho*Rho  initial 

•940  Trho**TAN(Rho) 

8998  CALL  Snail  I  COMPUTE  RH01 

•988  Y_bulltt:  PRINT  PAGE,*  The  GLN  ia  aaauaad  to  be  ayaaatric  around  tha  long 
itudinal * 

•978  PRINT  "axia.  Tha  aaxiaua  radtua,  called  Y_bullet,  ia  * ; Y_bu1 1  at ; * 

Inchaa.*  “  ~ 

•988  PRINT  LINO),"  If  your  deaign  requires  a  different  radlua,  plea 

aa* 

8990  PRINT  "enter  tha  neu  value  now.’ 

9000  INPUT  "Y_bul let  < INCHES)  ?‘,Y_bul1et 

9810  Aperture:  PRINT  PAGE,*  Tha  aperture  ia  tha  difference  in  radial  diatance 
froa  tha  GLN  axia,* 

9020  PRINT  ‘projected  onto  the  firat  aurface,  into  which  light  ia  alio 

wed  to  enter" 

9030  PRINT  *the  GLN  optical  ayatep.  The  paraaeter  values  are:* 

9840  PRINT  LINO) , "  Ye  ■  the  lower  aperture  lieit  (default  value  » 

*S  Yaj " i neh) * 

9890 


9890  PRINT  "  Yb  ■  the  upper  aperture  lieit  (default  value  ■  ";Yb;* 

inch)* 

9000  PRINT  *  and  ia  always  leas  than  or  equal  to  Y  bullet." 

9870  INPUT  "WHAT  IS  Ya  (INCHES)  7*,Ya 

9088  INPUT  "UHAT  IS  Yb  (INCHES)  ?*,Yb 

9898  IF  Ya>“Yb  THEN  BEEP 

9180  IF  Ya>«Yb  THEN  DISP  *Ya  MUST  BE  <  Yb.  Please  enter  correct  valu 

es.  * 

9118  IF  Ya>«Yb  THEN  UAIT  3000 

9128  IF  Ya>«Yb  THEN  Aperture 

9138  IF  Yb>Y  bullet  THEN  BEEP 

9148  IF  Yb>Y~bul let  THEN  DISP  *Y  bullet  MUST  BE  >  Yb:  PLEASE  RE¬ 
ENTER  Y  bul let, Ya  AND  Yb. "  ”  '  “ 

9198  ~  IF  Yb)Y  bullet  THEN  UAIT  3808 

9100  IF  Yb>Y_bul let  THEN  Y_bullet 

9178  Apert ure«Vb-Ya 

9188  IF  Ya<  >•  Then  Addj-ay-t 

9198  Nray:  PRINT  PAGE,*  The  prograa  will  traee*;Nray : *  rays  through  the  ayatee 
us  leas  * 

9280  PRINT  ‘you  specify  another  value.* 

9218  PRINT  LINO) .  “CAUTION:  Entering  too  aany  lines  will  clutter  the  dea 

ign  chart.* 

9228  PRINT  *  Try’jNrayj*  rays,  then  decide  if  yow  want  eore 

or  teas  rays.* 

9230  tNPUT  “  NON  NANY  RAYS  DO  YOU  UANT  THE  PROGRAM  TO  TRACE  ”,Nray 

9240  IF  Nr ay <2  THEN  BEEP 

9298  IF  NrayO  THEN  DISP  ’YOU  MUST  USE  AT  LEAST  TUQ  (2)  RAYS.  PLEASE  R 

S-ENTER  THE  CORRECT  VALUE.' 

9200  •  IF  Hr  ay  <2  THEN  UAIT  2980 

9270  IF  NrayO  THEN  Nray 
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9260  Focus:  PAINT  PAGE,*  Tha  focal  point  is  tha  location  on  th«  GLH-axis  tt  uh 
ieh  * 

9290  PAINT  ‘you  want  all  of  tna  rays  to  pass  through." 

9200  PAINT  LIN(2),"  Tha  aimaua  ualua  of  tha  focal  point  is  “;Y_bullatr 

Talpha;*  inchas." 

9310  PAINT  ‘This  ualua  has  baan  chosan  to  pravant  tha  angla  of  tha  tangan 

t  lina* 

9320  PAINT  ‘of  tha  sacond  surfaca  froa  axcaading  99  dagraas  at  y  •  *;Y  bu 

llat 

9330  PAINT  ■  ( ia.  at  y  •  Y_bul1at  inchas  >.* 

9340  PAINT  LIN(2),‘  Tha  dafaulT  ualua  is  ";F;“  inchas." 

9390  INPUT  "WHAT  IS  THE  VALUE  OF  THE  FOCAL  POINT  ?",F 

9300  Data:  PAINT  PAGE 

9370  INPUT  "U HAT  IS  TOKAY'S  DATE  ?",Dat at 

9300  Start:  PAINTER  IS  16 

9390  Gyanastics:  SUBEND 

9400  SUB  Chart 

9410  OPTION  BASE  9 

9420  > 

9430  CON  Alpha, Tal pha, Rho, Trho.Rho  t ni t i al , Trhoi  ,Rhol ,  Trhol , Aho2, Trho2 
9440  CON  F, 23 ,24, Nora, That ai , Tdat t a 

9490  CON  Data*, Plot*, Faai 1 yS, Chart S, NainS, HatnlS, FI agS, Y  hard# 

9400  I 

9470  CON  Stuf f S, At draw#, Di gi t i xaS, R*y_traeaS 

9400  CON  INTEGER  I ,  J,  Y0__1  oop,  Nr  ay ,  Nray_ehart ,  Nray_f  aai  1  y ,  Nr  ay_stuf  f 
9490  CON  INTEGER  Nr ay  traea.Nray  density, Add  ray ,  Nc ,  Ns.Nbeta,  FI  ag 

9900  • 

9910  CON  INTEGER  Lina  count, Lina  aax,N  i ncraaant , Hi t  t ot al , Psa 1 ac t , Hpi b 
9920  CON  INTEGER  Faai Ty , Surf_no 

9930  CON  REAL  Thata  cr i t i eal7Tol , Nl , N2, N3, Dal t a  ray , YO, Ya, Yb, Apart ura 

9940  ! 

9990  CON  Y  bullet.Saax  f aai 1 y , Parc  ant  iaaga 

9900  CON  Xl(»>,Yl(*),Xc(4>,X2(*>,Y2(«>,X2aax<«>, Y2aax(*> 

9970  CON  Y3<*>, Y4<a),Bdt*<a>,S2(*>,Xaurfaax<*>, Ysurfaax(*> 

9900  I 

9990  CON  Qa( ») , 3aax( •> , Al pha2(*> , Rho2< *) , Hi t ( •> 

9000 

9010  I  THIS  ROUTINE  CONFUTES  AND  DRAWS  A  FANILY  OF  CURVES  REPRESENTING  THE 
9020  !  RELATIONSHIP  BETWEEN  THE  DISTANCE  ALONG  THE  RAY  REFRACTED  AT  THE  FIRST 

9030  I  SURFACE  OF  THE  LENS  AND  THE  SLOPE  (DERIVED  FRON  SNELL'S  LAW >  REQUIRED 

9040  !  TO  SUCCESSFULLY  REFRACT  THAT  RAY  THROUGH  THE  DESIRED  FOCAL  POINT. 

9090  1 

9000  I  THE  NOTABLE  VARIABLES  ARE: 

9070  I  t>  BETA  :  THE  ANGLE  OF  A  LINE  DRAWN  FRON  THE  FOCAL  POINT  TO  THE 

9000  !  INTERCEPT  OF  THE  RAY  AND  THE  FIRST  SURFACE 

9090  I  2)  RN01  :  THE  ANGLE  OF  THE  REFRACTED  FRON  THE  FIRST  SURFACE  WITH 

9700  !  RESPECT  TO  THE  GLN-AXIS  (REF) 

9710  I  3)  RN02  .*  THE  REQUIRED  ANGLE  OF  THE  REFRACTED  RAY  FRON  THE  SECOND 

9720  I  SURFACE  WRT  REF 

9730  I  4)  HIGH  :  RHOt  >  BETA 

9740  I  9>  LOU  :  RHOl  <  BETA 

9790  I  0>  ALPHA2  :  THE  SLOPE  OF  THE  SECOND  SURFACE  WRT  REF  REQUIRED  TO 

9700  I  SATISFY  SNELL'S  LAW 

9770  !  7)  S  :  THE  DISTANCE  ALONG  THE  RAY  REFRACTED  FRON  THE  FIRST 

9700  !  SURFACE,  HEASURED  FRON  THE  FIRST  SURFACE 

9790  I  S>  Q  :  INTERCEPT  POINT  OF  THE  INCIDENT  RAY  AND  THE  FIRST  SURFACE 

9000  !  9)  A  :  X- INTERCEPT  OF  THE  RAY  REFRACTED  AT  Q 

9010  !  10>  QA  :  DISTANCE  FRON  Q  TO  A 

9020 

9030  DEC 

9040  Hray_chart«Nray 

9090  IP—(Stuf f  *»“ Y" )  OR  (Stuff*a‘y‘>  THEN  Nray  chart«Nray  atuff 

9000  Chart #«*Y* 

9070  CALL  Haadar 

9000  FlagaS 

9090  Draw  axas:  CALL  Plot 


PRINT  ‘of  tha  aacond  surfaca  froa  axcaading  99  dagraas  at  y  •  ‘;Y_bu 
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COMPUTE  BETA  FOR  EACH  RAY 


•  COMPUTE  THE  DISTANCE  ALONG  THE  REFRACTED 

•  RAY  TO  THE  X-INTERCEPT 

1  THIS  IS  THE  MAX  ALLOWED  VALUE  OF  S 

•  COMPUTE  ALPHA2  AND  S  FOR  EACH  RAY 


VSH  Bata:  FOR  I«t  TO  Nray  chart  ! 

Ml*  TbataaYl<I>'<Xl<I>-F> 

M2*  B*t4<I)»ATN<Tbat4> 

9930  A«Xl<n-YHI)/TrhoI 

994*  Qa2*<Xl <I)*A)a2+Y1<Da2 

999*  Qa< I)-SQR<Qa2> 

99C*  NEXT  I 

9970  Chart:  FOR  Nbata*l  TO  Nray  chart 

998*  S0a* 

999*  $aax>Oa<Nb«ta) 

1*0*8  N*tap«SaaxA20 

1**10  j>e 

18020  s:  FOR  S»$0  TO  Saax  STEP  Natap 
10030  J»J»1 

1*040  IF  ABS < Bat a<Nb«t a) ) >A8S(Rhol >  THEN  High 

10*30  IF  S<8  THEN  Naxtjjpta 

10060  Lou:  CALL  Lou  ragi on<S, A1 pha2, Nbat a) 

10070  IF  Tda1ta<8  Then  Nagatiua 

1000*  IF  Rho2>*  THEN  Nagatiua 

10090  IF  A1pha2>«90  THEN  Nagatiua 

1010*  IF  Li na_count >Li na_«ax  THEN  CALL  Haadar 

10110  PRINT  USING  I  ■4ga_d*t’a;  Nbat  a,  Bat  a<Nbat  a)  ,  That  ai ,  Nora,  Rho2,  S,  A I  pha2 

1012*  Lina  count>Lina  count*  1 

1*13*  GOSUB  Graph 

10140  GOTO  Haxt_» 

10190  High:  CALL  High  ragi on<S, AI pha2( Nbat a) 

1*160  IF  Tdal ta<8  THEN  Nagatiwa 

10170  IF  Rho2>0  THEN  Hagai i va 

1*10*  IF  A1pha2>a90  THEN  Nagatiua 

10190  IF  Lina  counl>Ltna  aax  THEN  CALL  Haadar 

10200  PRINT  USING  Iaaga_dat a; Nbata, Bat aCNbata) , That ai , Nora, Rho2, S , AI pha2 

10210  Lina  countaLina^ountal 

10220  GOSUB  Graph 

1*23*  GOTO  Naxt  a 

10240  Zaro_«ro»»_ovarrA-F*siN<A1ph4>/SIN<A1pha*ABS<8at4<Nbata> >)  'THIS 
1*290  ~  BaSacOS < ABS < Bat a< Nbat a> ) -A8S < Rho l ) >  i  CONDITION  EXISTS  IN 

10260  DaA-B  •  HIGH  WHEN  ALPHA2  >  9e  DEGREES 

10270  E"S*8 1 NC  ABS <  Bat  a<  Nbata) )-ABSCRhol > > 

1020*  Tdal ta-EsD 

1*290  Arho2*flBS<Bac  a<Nbat  *> > *»TN<  Tda 1 1  *> 

1*300  IF  Arho2<0  THEN  Nagativa 

1*310  Rho2a-laArho2 

10320  Nora  z  croaa:  A«C0S<Rho2)~N2.'N3aC0S<Rhol> 

1*330  B»N2-/H3»SIN<  AiSCRhol )  >-SIN<  AB$(Rho2>  > 

1*34*  Tnor*"BsA 

10390  Nora«ATH<Tnora> 

1*3*0  That al aNoraaABSI Rho 1 > 

1*37*  ThataraNora«ABS<Rho2> 

1*300  Alpha2-Nora*90 

103M  IF  Li na_eount  >L i na_oax  THEN  CALL  Haadar 

1*4**  PRINT  USIHG  Iaaga_dat a; Nbata, Bat  a<Nbat  a) , That  ai ,  Nora, Rho2, S, A 1 pha2 

1*410  Lina  count*Lina  count+1 

1*420  GOSUB  Graph 

10430  Naxt  1 : Saax  (Nbat a) -S 

1*44*  "  AI pha2< Nbata) >A1 pha2 

1049*  NEXT  S 

104*0  SaO-Nstap 

1*470  IF  9<Qa<Nbata>  THEN  Nagatiua 

1*4*0  Haxt  bata:  IF  Lina  count >Lina  aax  THEN  CALL  Haadar 

1*49*  “  PRINT 

1*S««  Lina.  countoLina  count *1 

10910  F1ag*2  ~  •  LABEL  THE  PLOT  WITH  NBETA 

1*920  GOSUB  Graph 

1*93*  Flag*!  I  RESET 

1*940  NEXT  Nbata 

1*99*  •  F1*g«3  !  TELL  GRAPH  THIS  IS  THE  LAST  BETA 

1*9*0  CALL  Graph 


145 


•*».'  -  V 


1 


? 


10370  ChartM'N” 

10399  CALL  Header  end 

19394  SUBEXIT 

19CBB  Negative:  IF  Nstep<Tol  THEN  Next  beta 

19919  S»S-N»tep  !  RH02  <  9  FOR  LOW  OR  ALPHA2  >  9  FOR  HIGH  OR  LOU 

19929  S9-S 

19939  N»tep»N»tepxl9 

19949  Rho2<0 

10930  GOTO  S 

10990  Graph:  GRAPHICS 

10970  SETUU 

10999  LINE  TYPE  1 

10990  LOIR  9 

19799  LORG  2 

10710  CSIZE  2.3 

10720  IF  J«l  THEN  HOVE  S,A!pha2 

10730  IF  J»2  THEN  DRAW  3,A1pha2  !  00  NOT  CHANGE 

19749  IF  < J>«3>  AND  <F1ag<>2>  THEN  DRAW  S,Alpha2  !  DO  HOT  CHANGE 

10739  IF  FI ag>2  THEN  LABEL  USING  107?0;Nbeta 

19790  CSIZE  13x4.34 

10770  INACE  K 

10790  RETURN 


19799  laage  data:  MAGE  ODD, 4X, 3(40. 30, 3X> ,40. 30, 3X, 20.  3D,3X,  40. 30 

10994  !  IMAGE  STATEMENT  IS  FOR  Nbet a, Bet a<N5»t a> , Thet ai , Nora, Rho2, S, Al pha2 

10410  SUBEND 

10029  SUB  Low  regt  on( 3, Al pha2, INTEGER  N> 

10430  OPT 
19049 

10430  CON 
10990  CON 
10970  con 
10999  ! 

10090  con 
19900  con 
10919  con 
10929  ! 

19930  con 
19940  con 
19930  con 

10999  I 
19979  con 
10900  con 
10990  con 

11000  I 
11919  con 
11020  I 
11030  DEG 

11040  Tdo 1 1 a: A«S I N< A I pha* ABS <  Be t  a<  N  > ) >  1  COMPUTE  RH02  •  fiS> 

11030  B"F»91N<Alpha)xA 

1 1094  CwS*C04  <  ABB < Rho 1 > - ABS  < B«ta(H>) ) 

11070  D-B-C 

11000  E<040IN<AB8< Rho 1 >-ABS<  Bet a<N) ) ) 

11090  Tdelta*ExD 

11100  Do  I  *  a«ATN<  Tde 1 1  a) 

11110  Arho2*ABS<Beta<N> >-Del ta 

11124  Rho2»- 1 aAr ho2 

11130  NorBd»:AwC0S<Rho2>-H2-'N3#C0S<Rhol>  !  COMPUTE  ALPNA2  •  f<RH02> 

11140  Ba0IN<AB0<Rho2))-N2xN34SIH<ABS<Rhol >> 

11130  TanoraaBxA 

11144  AnoraaATN<Tanora> 

11179  Thet  ai aAnor a-ABS  <  Rho 1 > 

11140  ThetarwAnora-ABS<Rho2> 

11190  Noraa-l#Anora 

11200  A1ph42*94*Nora 

11210  SUBEND 

11224  BUB  High  regi on<S.Alpha2, INTEGER  N) 

11230  OPTION~BA0E  9 


ON  BASE  0 

Alpha,  Tal  pha, Rho,  Trho,Rho_ini t  1  al , Trhoi , Rhot , Trhol , Rho2, Trho2 
F, Z3, 24, Nora, Thet  ai ,  Tdelta 

DateS,P1ot*,Faai 1 y*. Chart*, Mai n», Mai nl* , FI ag*, Y_har d* 

Stuf f*, Redraw*, 01 gi t i ze», Ray_t race* 

INTEGER  I, J, Y0_loop,Nray,Nray_ehart,Mray_f aai 1  y , Nray_»tuf f 
INTEGER  Nr ay_t r ac e , Nr ay_den * i t y , Add_r ay,Nc,N«,Nbeta,Flag 

INTEGER  Line  count, Line  aax,N  i ncreaent , Hi t  t otal , P»e 1 ec t , Hpi b 
INTEGER  FaaiTy , Surf_no  “ 

REAL  Theta_cri  tical7ToI , Nl , N2, N3, Oe I ta_r ay , Y0, Ya, Yb, Aperture 

Y  bullet.Saax  f aai 1 y, Percent  iaage 

xT<e), Yl<*),Xc<4),X2<»),  Y2<47,X2aax<*>,  Y2aax<4) 

Y3<»>, Y4<»>, Beta<*>, S2<*> , Xaurfaax<*> , Y*urfaax<*> 

0a<* > , Saax ( •> ,  Al  pha2< •> , Rho2< * > , Hi t  < *> 
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1240  I 

1250  COM  Alpha,  Tal  pha,  Rho,  Trho,  Rho  initial, Trhoi , Rho l , Trhol , Rho2 , Trho2 
1200  COM  F,Z3,Z4,Norm,Thatai .Tdalta 

1270  COM  Oat  a*, PI  ot#,  Faai  ly*,  Chart  »,  Main#,  Mainl*,  FI  ag*,  Y  hard* 

1200  I 

1290  COM  Stuf f *, Redraw*, Di gt 1 1 za* , Ray_traea* 

1300  COM  INTEGER  I .  J,  VO _ l oop,  Nray , Nray^chart , Nray_f am i 1 y , Nray_»t uf f 

1310  COM  INTEGER  Nray  traca.Nray  dan» i ty ,  Add  ray ,  Nc  , N», Nbat a, FI  ag 
1320  ! 

1330  COM  INTEGER  Lina  count, Lin*  »ax,N  incraaant , Hi t  total .Psalaet ,Hpib 
1340  COM  INTEGER  Family, Surf_no 

1350  COM  REAL  Thata  cr  i  t  i  e alTTol ,  N.l ,  N2, N3,  Da  1 1 a  ray ,  V0,  Ya,  Yb,  Rpartura 
1300  > 

1370  COM  Y  bullat.Smax  f aai 1 y, Ptreant  iaaga 

1380  COM  xTt*),Yl<*), Xc  <  *) ,X2<*),Y2<*7,x2»ax<*>,Y2maxC#> 

1390  COM  Y3<*> , Y4<*>, Bata<*> , S2<  »> , Xaurfmaxt* > , Y*ur f max <  * ) 

1400  ! 

1410  COM  Qa<») , Saax<»> ,  AI pha2<*)  , Rho2<*> , Hi t  <*> 

1420  • 

1430  DEG 

1440  Hi gh: A»SIN< AI pha*ABS<8at  at  N> > )  •  COMPUTE  RH02  •  f(S> 

1450  B“F*SIN<AI pha)'A 

1400  C“S*C0S< ABStBat a<N> )-ABS<  Rhol >  > 

1470  D«B-C 

1480  E«SaSIN<ABS< Bat a<N)>-ABS< Rhol >) 

1490  Tdal  ta*E/[l 

1500  Arho2“ABS<Bat  at  N>  > *ATN<Tda 1 1 a) 

1510  Rho2«-l*Arho2 

1520  Normal : A«N2/N3*S IN< ABStRhol ) )-SIN< ABS<Rho2> )  !  COMPUTE  ALPHA2  -  f<RH02> 

1530  B»N2/N3»C0S<Rhol)-C0SCRho2> 

1540  Tanora«AxB 

1550  Anorn“ATN<Tanora) 

1580  That  ai »ABS  <  Rho 1 ) - Anor a 

1570  That  ar'ABS  <  Rho2 ) - Anor a 

1500  Nora»-l »Anor* 

1590  Alpha2«90*Hora 

1800  SUBEND 
1810  SUB  Family 
1820  OPTION  BASE  0 
1830  ! 

1840  COM  Alpha, Tal pha, Rho, Trho, Rho  i ni t i al , Trhoi ,  Rhol ,  Trhol ,  Rho2, Trhoi 
1850  COM  F , 23, 24,  Nora,  That ai , Tdal t a 

1880  COM  Data*. Plot*, Faaily*, Charts, Main*, Mainl*, Flag*, Y  hard* 

1870  I 

1800  COM  Stuf  f*,  Redraw*,  Di  gi  t  i  :al,  Ray _traea* 

1890  COM  INTEGER  I ,  J,  Y0_1 oop, Nray , Nray_ehart , Nray _f ami  1 y, Nray _»tuff 
1700  COM  INTEGER  Nray  traca.Nray  dansity.Add  ray, Nc , N», Nbata.F1 ag 
1710  I 

1720  COM  INTEGER  Lina  count, Lina  aax,N  incraaant , Hi t  total ,Ps#t act ,Hpi b 
1730  COM  INTEGER  Family , Surf _no 

1740  COM  REAL  Thata  er i t i cal  7*01 , N1 , N2,N3, Da  1 1 a  ray, YO, Ya, Yb, Apartura 
1750  I 

1780  COM  Y  bullat.Smax  f aai 1 y , Parcant  imaga 

1770  COM  xT<*),Y1<*),Xc<*>,X2<*>, Y2< »7, X2max< •> , Y2*ax<*> 

1700  COM  Y3<*>,Y4<*>, Bat  at  * ) , S2( *) , Xsurf aax<* ) , Yaur f max t • ) 

1790  I 

1000  COM  0a< • > , Smax  <  *  > , A I pha2  <  *  > , Rho2  <  a  > , H 1 1  <  *  > 

1010  I 

1020  !  THIS  ROUTINE  COMPUTES  AND  DRAMS  A  FAMILY  OF  SURFACES  USING  THE 

1030  >  THE  DESIGN  CHART  DRAHN  IN  SUBROUTINE  CHART 

1040  I  THE  ROUTINE  TAKES  THE  END  POINTS  OF  EACH  CURVE  OF  ALPHA2  VS  S 
1050  I  AND  DRAMS  A  SURFACE  USING  ALPHA2  TO  DRAM  A  LINE  TO  INTERCEPT  THE  NEXT 
1080  I  RAY.  THESE  SURFACES  ARE  THEN  THE  MAXIMUM  SURFACES  FOR  EACH  PARAMETER 
1070  •  BETA. 

1000  1 

1090  MHEN  STUFF*m“Y"  THE  ROUTINE  GOES  THROUGH  THE  I  LOOP  ONCE  <ia  FOR 

1900  •  ONE  SURFACE)  AND  THE  J  LOOP  NRAY  STUFF  TIMES. 
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11910 

11920 

11930 

11940 

11990 

11960 

11970 

11900 

11990 

12000 

12010 

12020 

12030 

12040 

12090 

12040 

12070 

12000 

12090 

12100 

12110 

12120 

12130 

12140 

12190 

12160 

12170 

12190 

12190 

12200 

12210 

12220 

12230 

12240 

12290 

12260 

12270 

12200 

12290 

12300 

12310 

12320 

12330 

12340 

12390 

12360 

12370 

12300 

12390 

12400 

12410 

rf 

12420 

rt 

12430 

12440 

12490 

12440 

12470 

12400 

12490 

12900 

12910 

12920 

12930 

12940 

12990 


i 


i 

DEG 

Faaily#»“Y" 

CALL  Header 
Yaax-Y  bul I «t 
LINE  TYPE  1 
LOIR  0 
LORG  9 

CSIZE  13/4.54 

F I ag-0  I  RESET  CONDITION 

Nray  faaily-Nray 

IF~<Sluff*x‘Y“>  OR  (Sluff»«*y“>  THEN  Nray  faatly«Nrey  stuff 
Drau_axea:  CALL  Plot  1  DRAWS  AND  LABELS  THE  AXES 

~  Step_faai  ly«INT(Nray_faai ly/10> 

IF- Stop  faaily<-0  THEN  Step  faaily«l 
First  surf: LINE  TYPE~3  1  DRAW  THE  FIRST  SURFACE 

HOVE  0,0 
XaYaax/Talpha 
DRAW  X.Yaax 
DRAW  100, Yaax 

IF  <Stuff*»“Y*>  OR  <Stufft-*y*>  THEN  Delta  b 
EXIT  GRAPHICS 

BEEP 


YS«*N" 


INPUT  *00  YOU  WANT  TO  DRAW  IN  THE  INCIDENT  RAYS  ?  Y/N*,Y* 
IF  <Y*«*N*)  OR  <Y»-*n*>  THEN  Delta  b 
GRAPHICS 
LINE  TYPE  3 

FOR  I*Step  faaily  TO  Nray  faaily  STEP  Step  faatly 
HOVE  0,yT<I> 

DRAW  X1(I),Y1(I> 

A"X1  < I )-Yl <  I )/Trhol 

DRAW  A, 0 
NEXT  I 

Delta  bl GRAPHICS 

IF  (Stuff ae*Y* )  OR  (Stuff*»*y*  >  THEN  Step_faai I y«l 
B1«Y1 (Step_f aai 1 y >-Xl (Step_faai 1 y)*Trhot 
B2-Yl(Step~faat I y*l >-Xl 'Step  f aai ly*l >»Trhol 
Deltab»B2-Bl 


Start ing_potnt a IFOR  I-Step  faaily  TO  Nray  faai 
J«I 

FI ag_overe0 

Flag  neg«0 

Sf I  ret -SI  eat -Saax < I ) 

IF  (Stuff»«*Y*>  OR  (StuffS«*y">  THEN 
S2(I>>Slast 

Del ta_xsurf >S2( I >*C0S(Rhol > 

Del »a~y »urf »S2< I )*SIN(Rhol > 

Xaurf  21  -XI  (  I >  *De  1 1  a_xsurf 
Ysurf21«Yl  <  I  >*De  1 1  a""y»urf 

IF  (8tuff»«*Y*>  OR  (StuffS»*y*>  THEN 


ly  STEP  Step  faaily 
i  PRINTING  PURPOSES 
1  RESET  CONDITION 
I  RESET  CONDITION 

Sf 1 rst*S1 ast*Saax<Faai ly) 
•  FOR  STUFF  ONLY 


Xsurf21*Xt(Faat 1 y ) »De I t a_xsu 


IF  (Stuff»"*Y*>  OR  (Stuff»«*y*> 


THEN  Ysurf21«Yl (Faai ly )*Del te_ysu 


IF  Ysurf21<0  THEN  GOSUB  Neg_ysurf  !  THE  STARTING  POINT 
X2(t)eXsurf2t  1  IS  BENEATH  THE  X-AXIS 

Y2< I >«Ysurf 21 

Xaurf aax < I > -Xaurf 2 1  I  THESE  ARE  THE  HAXIHUH  (X,Y>  COORDINATES  OF  THE 
Ysurfaax< I )-Yaurf 21  !  RAY  IN  THE  LENS 
IF  Flag  negel  THEN  GOSUB  New  a 
TrHo21«Y27l)/(X2(I)-F> 

Rho2< I ) -ATN( Trho2I ) 

A I pha2i «Alpha2< I ) 

IF  (Stuf f*«*Y“ )  OR  (Stuf f#«"y*>  THEN  A1 pha2i >AI pha2(Faat 1 y > 

IF  A1pha2i»90  THEN  Next_i 
Tal pha21 -TAN( Al  pha2i  ) 

Baurf 21-Yaurf 2 1 -Xaurf 21 *Tal pha2i 


i 

! 

i 

♦ 

* 
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i 


< 


t 


COMPUTE  NEXT  VALUE  OF  S  BY 
EXTENDING  THE  RAV  FROM  THE 
PRESENT  POINT  TO  THE  NEXT 
ALPHA2  VS  S  LINE 


1 23ft  Xsurf I a*t  *X*ur  f 2 1 

1237#  Y*upf1aat*Y»uPf21 

123tt  DsuPf 1 «st«lturF21 

1239#  IF  Lin*  count >L in#  «ax  THEN  CALL  H«ad*P 

12###  PRINT  USING  13470; I , J, Rho2( J > , Xaupf t a*t , Y*upf 1 a»t , SI a»t , A1 ph*2 i 

12fl#  Lin*  countaLin*  count*l 

12*20  LINE~TYPE  1 

12(3#  CSI2E  2.5 

12f4#  LORG  2 

12*3#  MOVE  X»upf21,Y»upf2l  !  THE  STARTING  POINT 

12ff#  SuPfae**!FOR  J«t*l  TO  Npay  faaily  !  DRAM  THE  PARTICULAR  SURFACE 

12#7#  ln*xt«Bl*< J-l >*D* 1 t 4b 

12ft#  Nu«x»upf «8n*xt -Baunf 1 **t 

12f9#  X*upfn«xt»Nu«x*urf /(TalpHa2t -Tphol > 

1270#  Y»upfn*xi»X*urf n*xt #Tphol+Dn«xt 

1271#  X2<J>BXsupfn*xt  !  ONLY  USED  FOR  STUFF.  DON'T  USE  AN  IF 

1272#  Y2(J>*Y*upfn*xt  !  STATEMENT  IN  ORDER  TO  SAVE  TIME 

1273#  X1>0 

1274#  CALL  Xlpo*(Xl , Yaupfn*xt ) 

1273#  IF  X»upfn*xt<nxi  THEN  GOSUt  Yt 

127*0  DRAW  X»upfn*xt , Ysupfn*xt 

1277#  Xs2*(Xl ( J)-Xsupf n*xt )A2  ! 

127##  Y»2"<Y1< J>-Y»upFn*xt )A2  ! 

1279#  3n*xt«3QR<X»2*Y»2>  ! 

12###  32<J>*3n«xt  ! 

12#  10  IF  A0S(0*ta(J)>>ADS(Rhol>  THEN  CALL  High  rogt on<Sn*xt , A I pn*2t , J> 

12#2#  IF  ADS(B*ta(.I>  ><»A8S(Rhol )  THEN  CALL  Lou“r*gt on(3n*xt , A1 pha2t , J > 

12#3#  Rho2( J)aRho2 

12«4«  Alpha2< J>«Alpha2i 

12#3#  IF  Lin*  count >Lin*  aax  THEN  CALL  H*ad*P 

12#*#  PRINT  USING  13470;  I ,  J,  Rho2< J >  ,X2( J> , Y2C J> , S2C J) , A1 pha2( J) 

12#7#  Lin*  countaLin*  count*l 

1200#  IF~A1pha2i  >«90  THEN  N*xt  i 

12#9#  T*lpha2t-TAN(A1pha2(J>> 

1290#  8*upFn*xt  »v»upfn»xt -Xaupfnvxt *T*|  pha21 

1291#  D*UPf 1 a»t«B»urfn*xt 

1292#  Xaupf 1 a*tax»upf n«xt 

1293#  Yaupf la*t«Y»urfn*xt 

1294#  IF  <Stuff*B«Y">  OR  (Stuff »B*y*>  THEN  12970 

1293#  X2aax ( I  > “Xaupf 1  oat  (  USES  TO  DETERMINE  APERTURE  FOR  STUFF 

1290#  Y2»*x<I>«Y*urf 1 aat 

1297#  IF  Flag  ov*p"l  THEN  N*xt  i 

129##  N*xt_j;  NEXT  J 

1299#  N*xt  i:  IF  Lin*  count>Lin*  aax  THEN  CALL  H*ad*P 
13###  PRINT 

1301#  Lin*  countaLin*  count*l 

13020  IF~<Stuf f #b”Y”)  OR  <Stuff»B"y*>  THEN  13030 

13030  IF  FI *9  ov*pa0  THEN  GOSUD  Lab*  I  tupf 

1304#  IF  <Stuff0a«Y->  OR  (Stuff 0B*y*  >™THEN  13000 

13030  NEXT  1 

13000  LORC  3  I  RESET 

13070  CSIZE  13/4.34 

13000  IF  (Stuff *“*Y*  >  OR  (Stuff 0B"y“ )  THEN  GOSUD  Yb 

13090  F1«9b3 

13100  CALL  CpapN 

13110  Faai1y9B‘N* 

13120  CALL  H««d*p  «nd 

13130  DUBEXIT 

13140  YU  Fla0_ov*pal 

13130  Xaupfnoxtafsupf  1  ut  /  (Talpha-Tal  ph*2i  > 

13100  Y*upfn*xtaX*upfn*xt*T*lpha 

13170  MOVE  X»upfn«xt , Y»upf n«xt  •  THE  ENDPOINT 

13100  C0I2E  3 

13190  LORG  1 

13200  IF  (Stuf f Sa*N" )  OR  (StuffS-’n*)  THEN  LADEL  USING  13410; t 

13210  .  IF  (Stuff*B"Y">  OR  <Sluff»B"y«)  THEN  LADEL  USING  13410; Fan i I o 

13220  HOVE  Xsupfn*xt,Ysupfn*xt  >  PLACE  THE  PEN  BACK  ON  TOP  OF  THE  POINT 


o 
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13239  RETURN 

13249  New  •:  Sy2-Y2(I)-Yl(I> 
13239  "  Sx2-X2( I  >-Xl <  I ) 

13299  32 < I )*SQR(Sx2+Sy2) 

13279  RETURN 


13299  Neg  ysurf:  Flag  neg-t  •  IF,  FOR  SONE  NUMERICAL  REASON  YBt  <  9 

132*9  ~  A«X1~I )-Yl ( I >r Trhol 

13399  IF  (Stuff*-“Y“>  OR  (Stuff*-*y“>  THEN  A*XUFutlji>-Y|  (Faatl  y  >✓ 

TrHol 


13319 
13329 
13339 
13349 
13339 
1 3399 
13379 
13399 


Xsurf21-A  !  START  AT  THE  X-INTERCEPT 

Ysurf21-9 
RETURN 

Label  surf:  HOVE  Xsurf  1  ut ,  Ysurf  1  ui  !  THE  ENDPOINT 

CSIZE  3 
LORG  1 

IF  (Stuff *-“N" )  OR  (Sluf f *-"n“ >  THEH  LABEL  USING  13419; I 
IF  (Stuf f *-"Y“ >  OR  (Stuff*-“y‘>  THEN  LABEL  USING  134l0;Faa<l 


y 

13399  MOVE  Xsurf 1 ast , Ysurf 1 ast  I  PLACE  THE  PEN  ON  TOP  OF  THE  POINT 

13499  RETURN 

13419  IMAGE  K 

13429  Yb:  Bs—Y2aax(Faai  1y)-X2aax(Faai  ly>*Trhol  !  COMPUTE  THE  UPPER  LIMIT 
13439  Xl«Bsas(Talpha-Trhol)  !  OF  THE  APERTURE.  THIS  IS  THE  FINAL  VALUE  OF 

13449  Yb-Yl-Xl»Talpha  I  THE  APERTURE 

13439  Apersure«Yb-Ya 
13499  RETURN 

13479  IMAGE  2X, ODD, 3X, ODD, 3(3X, ODD. DDD> 

13499  •  THE  IMAGE  STATEMENT  IS  FOR:  I ,  J, Rho2( J) , X2( J) , Y2< J) , S2( J> , A! pha2( J> 

13499  SUBEND 


13399 

13319 

13329 

13339 

13349 

13339 

13399 

13379 

13399 

13399 

13999 

13919 

13929 

13939 

13949 

13939 

13999 

13979 

13999 

13999 

13799 

13719 

13729 

13739 

13749 

13739 

13799 

13779 

13799 

13799 

13999 

13919 

13929 

13939 

,*• 

13949 

13939 

13999 


SUB  Ray  trace 
OPTION  BASE  9 

! 

COM  Alpha, Tal pha, Rho, Trho.Rho  Initial, Trhoi , Rhol , Trhol , Rho2, Trho2 
COM  F, Z3, 24, Nora,  Thecal , Tde 1 1  a 

COM  Date*, Plot*, Faai  ly*, Chart*, Main*, MainlS, Flag*, Y  hard* 

I 

COM  Stuff*,  Redraw*,  Di  gi  t  i  it*,  Ray _t race* 

COM  INTEGER  I , J,  Y9_l oop, Nray , Nray_ehart , Nray_f aai 1 y , Nr ay_stuf f 
COM  INTEGER  Nray  trace, Nray  density, Add  ray , Nc , Ns, Nbet a, FI ag 

i  ~  “ 

COM  INTEGER  Line  count.Line  aax,N  i ncreaent , Hi t  t ot al , Psel eet , Hpi b 
COM  INTEGER  Faaily , Surf_no 

COM  REAL  Theta  cr i t i c al 7Tol , N1  ,N2, N3, Del ta_ray, Y9, Ya, Yb, Apert ure 
I 

COM  Y  bul1et,Saax  f aai 1 y, Percent  iaage 

COM  xT(*),Yl(*),Xe(*),X2(e), Y2( *7, X2asx(*> , Y2aax(*> 

COM  Y3(*> , Y4(#),  Beta(e> , S2 (•>, Xsurf aax (•>, Ysurf aax <« ) 

I 

CON  Q*<e>,Saax(e>,Alpha2(e>,Rhe2(e>,Hit(*> 

1 

i 

I  THIS  ROUTINE  CONTROLS  THE  RAY  DIAGRAM  FOR  AN  ARBITRARY  NUMBER 
I  OP  RAY*  MM I CM  IS  ENTERED  »Y  TME  OPERATOR  IN  RESPONSE  TO  A  PROMPT 

I  TME  ROUTINE  CONTROLS  THE  FITTING  OF  A  POLYNOMIAL  TO  A  SET  OF  POINTS 
!  WHEN  AN  ARBITRARY  RAY  DOES  NOT  COINCIDE  MITH  A  RAY  COMPUTED  IN  STUFF 
I 

DEG 

Ray  traeeM’Y" 

Select-19 
EXIT  GRAPHICS 
Y*»"N" 

INPUT  "DO  YOU  WANT  A  HARD  COPY  OF  ALL  OF  THE  GENERATED  COEFICIENTS  ?  YxN" 

IF  (Y*a*Y">  OR  (Y*a"y*>  THEN  Select-* 

•  Graph!  cs-l 
X-l 
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13170  N*4 

13000  CALL  Dri vor <N, Sot ect , X, Graphl es> 

13090  Ray  traee*«“N“ 

13900  SUBEND 

13910  SUB  Dr t v*r<N, S*1 ect , Input , Graphi es) 

13920  ! 

13930  OPTION  BASE  1 
13940  I 

13990  CON  Al pha, Tal pha.Rho, Trho.Rho  I  n 1 1 1  al ,  Trhot ,  Rho t , Trhol , Rho2, Trho2 
13900  con  F , 23, 24, Nora, That *1 , Td* 1 t a 

13970  con  Date*, Plot*, Faai 1 y*, Chart *, Ha! n*, Hal nl *, FI ag», Y  hard* 

13900  I 

13990  COn  StuFF*,Redraw*,  D1  gt  1 1  zef ,  Ray_trace* 

14000  COH  INTEGER  I ,  J, Y0_l  oop,  Nr  ay ,  Nray_chart , Nr ay_f  a* i  I y , Nr ay_st uF f 
14010  COn  INTEGER  Nray  trace, Nray  densi ty , Add_ray , Ne , Ns, Nbeta, Ft ag 
14020  t 

14030  CON  INTEGER  Line  count, Line  aax,N  Increaent , HI  t_total ,  P»el eet , Hpi b 
14040  con  INTEGER  FaoiTy.SurF  no 

14090  ! 

14000  Din  Xx<N>,Yy<N>,A*C2I,B*C21,Co*FF*<0: 10> 

14070  PRINTER  IS  Select 

14000  0*4 

14090  Pi  Degree*3 

14100  CALL  Polynoalal  <Xx< *>,  Yy<*> ,  N,  Degree, Co*FFs<*> ,  Regs*, Resas, Tot  at  s», Re 

gas, Rosas, F, DFreg,DFres, DFtot , Abort ) 

14110  PRINT  “CoeFFI e lent*:  ' 

14120  FOR  I>0  TO  Degree 

14130  PRINT  USING  14140; I , CoeFFs< I ) 

14140  IN AGE  “A< 'DDDD“ )»“ , X 

14190  NEXT  I 

14100  PRINT  LIN<1> 

14170  G0SU1  Aou table 

14100  IF  Graphic*  AND  (SelectalS)  THEN  UAIT  2000 

14190  IF  Graphics  THEN  CALL  Pt ot_cubt c <0, A, 1, CoeFFsC *>, XxCO , Yy<*> , N, Degree 

e, Select) 

14200  SUBEXIT 

14210  Print;  PRINTER  IS  Select 

14220  PRINT  LIN<2),SPA<12>;*DATA* 

14230  FOR  la;  TO  N 

14240  PRINT  USING  14290; I , Xx< I > , Yy< I > 

14290  IHACE  'Point  *’0000* ;  “ , 9X,  "X2a"DBB. DODD, 9X, ■ Y2«“DDD. DDDD 

14200  NEXT  1 

14270  PRINT  LIN<2) 

14200  PRINTER  IS  10 

14290  RETURN 

14300  Routable:  PRINT  USING  14310 

14310  IHACE  ‘Source  "9X"  Df'UX"  SS'13X"  HS‘12X'F',' 

14320  PRINT  USING  14330; DFreg, Regs*, Regas, F 

14330  IN AGE  'Regress! on *9X, NOD, 4X,H7D. 3D, 4X, H7D. 3D, 9X, H4D. 3D 

14340  PRINT  USING  14390; DFres, Resss, Rosas 

14390  IHACE  'Residual  *9X,ngD,4X,n7D.3B,4X,n7B.3D 

14300  PRINT  USING  14370; DFtot , Tot al ss 

14370  IHACE  'Total  '9X, HDD, 4X,H7D. 3D, 

14300  RETURN 

14390  SUBCND 

14400  SUB  Po I ynoalalCXC#), Y<#),H,  Degree, CoeFFsC* >,Regss, Resss, Totals*, Regas, Resa 
*, P, DFreg, DFres, DFtot .Abort > 

14410  OPTION  BASE  0 

(4420  DIN  Hatr I x < Degree, Degree) , Inu< Degree, Degree) , B< Degree) 

14430  REDIH  CoeFFst Degree) 

14440  IF  0*gr**>N-2  THEN  SUBEXIT  I  Check  For  higher  degree  than  possible 
14490  OFregaDegre* 

14400  DFr**aN>t-D*gr*e 
14470  DFtot'DFregeDFres 

14400  FOR  Ka0  TO  Degree  •  Set  up  systea  oF  equations 

14490  .  FOR  J«IC  TO  Degree 
14900  HatrlxCK, J>*0 
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1491# 

1492# 

1493# 

14949 
1499# 

149C0 
14970 
14990 
14990 
14900 
14010 
14020 
14030 
14040 
14090 
14000 
14070 
14000 
14090  NEXT  J 
14700  Yt-Vl/N 
14710  Xl-Xl/N 
14720  Totel**aY2-N*Yl»Yl 
14730  COSUt  Regs* 

14740  ResssaTotal ss-Regss 
14790  Regas»Reg**'Dfreg 
14700  Resas«Re*s*'Dfres 
14770  FaRegos'Resas 
14700  SU9EXIT 


Solve  the  systea  of  aquation* 


I  Total  Sub  of  Squares 
!  Regression  Sua  of  Squares 
!  Residual  Sua  of  Square* 


FOR  tat  TO  N 

Hat  r  t  x  <  K ,  J  > "Nat  rlx<K,J>*FNG<K>  *FNC t  J  > 
NEXT  I 

Hatr I x<  J, K  > ^Matr I x<K, J) 

NEXT  J 

•<K>-0 

FOR  I»1  TO  N 

B<K)sS<K)+Y<I )*FNG<K> 

NEXT  I 
NEXT  K 

HAT  I n v" I NV  <  Hat  r i x ) 

HAT  Coeffs«Inu*B 
FOR  !•!  TO  N 
X1"X1*X<I> 

X2"X2+X< I )*X<  t ) 

Y1"Y1*Y<I> 

Y2"Y2*Y<I)#Y<I> 

2"Z*X<  I ) *Y< I ) 


14790  Regs*:  Regs**# 

14909  FOR  1-1  TO  N 

14910  J«0 

14020  FOR  Lag  TO  Degree 

14S3S  JaJ*x<n^L*Coeffs<L> 

14940  NEXT  L 

14099  RegssaRegss*<T-Yl>^2 

14000  NEXT  I 

14070  RETURN 

14999  SUIEX1T 

14090  DEF  FNG<n)"X<I)~H 

14990  SUBEND  _  , 

14919  SUB  PI ot_cubi « <Q« A,  B, Coef f *<  *> , X<  *> , Y<*> ,  N,  Degree, Sel ect > 

14929  IF  Hhl«hdeviee«l  THEN  GRAPHICS 

14930  DATA  -2,-1, 1,2 

14940  READ  Ua.Da.Hd.nu 

14999  DATA  .39794, .69897, .87900 

14900  READ  Log2,LogS,Log7 

14970  Xain"FHHIn<X<»),H> 

14999  Xaex-FNHax<X<*>,M> 

14999  Lx»LGT  <  Xaax-Xa i n ) 


19090  Yain-FNHln<Y<*),H> 

19010  Yaax-FHHax< Y<  »> , N) 

19029  Ly»LCT  < Yaax-Yai n) 

19039  xf udge« . 20*  <  Xaax-Xa l n  > 

19040  Yf udge*. 20*  <  Yaax-Ya I n ) 

19090  Setup:  IF  Plot*""P*  THEN  P9S72 

19909  Crt:  PLOTTER  IS  "GRAPHICS* 

19079  GOTO  19099 

19000  P9072:  PLOTTER  IS  Psel eet , Hpl b, "9972A* 

19090  GCLEAR 

19109  GRAPHICS 

19110  LOCATE  23,123,0,199 

19129  FRAME 

19139  LINE  TYPE  1 

19140  SCALE  Xa I n-Xf udge , Xaax , Ya I n-Yf udge , Yaax 

19199  Testxtl<aFRACT<Lx)*<Lx<9> 

19100  -  Testytl«aFRACT<Ly)*<Ly<#> 


O 
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1517#  Xtlc-l#*<INT<Lx>-l>*<l*l*3*<<Tostxtlc >Log2)  AND  < Tost xt I c< Log5> >*4* 

<<Tostxt le>«Log3>  AND  (Tostxt ic<-Log7> 5*6. 3*<To»txt te >Log?l > 

1S1C#  Yt i c-10r< INT<Ly)-l )*< 1*1 . 3*< (Tostyt i e >Log2>  AND  < Tostyt i c <Log3> >*4* 

<<Tostytlc  >-Log3>  AND  < Tost yt  i  c< «Log7>  >♦*.  3*<  Tost yt  t c  >Log?>  > 

1515#  CALL  Laxos_cuble <Xt Ic , Yttc,Xaln,Yaln,l,l ,2,!<ain-Xfudg*,X»ax,Yain- 

Yfudgo.Yaax)  ~ 

152##  LORG  3 

1321#  FOR  >1  TO  N 

1322#  HOVE  X<l),Y<n 

1323#  LA1EL  USING  13240;"*’ 

1324#  IMAGE  A 

1323#  NEXT  I 

1326#  LORG  1 

1327#  PENUF 

132##  EXIT  GRAPHICS 

132S0  SUDEXIT 

1338#  Polynoai 41 :  SETUU  !  CHECK  THE  EARLTER  PROGRAM  FOR  THESE  PARAMETER  VALUES 
1331#  CLIP  0, 123,0, 100 

1332#  LINE  TYPE  l 

1333#  LINE  TYPE  6 

1334#  FOR  I-Xaln  TO  Xaax*Xfudgo  STEP  (Xaax+Xfudgo-Xat n>^30 

1333#  J-0 

133*0  FOR  L-#  TO  Bogroo 

1337#  J*J*l'L*Coof fs  <L> 

133##  NEXT  L 

133##  PLOT  I.J.Md  !  OR  DRAW  ??•?? 

134##  NEXT  I 

1341#  PENUP 

1342#  EXIT  GRAPHICS 

1343#  SUBEXIT 

1344#  BEF  FNMaxC  XC*>  ,  N) 

1343#  X-X< 1 ) 

134C#  FOR  1-2  TO  N 
1347#  X-MAXCX, X< 11) 

134##  NEXT  I 

134S#  RETURN  X 

133##  BEF  FMMI n<X<»)  ,  N> 

1331#  X-XU) 

1332#  FOR  1-2  TO  N 
1333#  X-MINC X ,  X(  1 ) ) 

1334#  NEXT  I 

1333#  RETURN  X 

133C#  SUB  Hoador 
1337#  OPTION  BASE  # 

133##  I 

1339#  COM  Alpha, Talpha, Rho, Trho.Rho  Ini t fa) , Trhol , Rhol , Trhol , Rho2, Trho2 
IS*##  COM  F, 23, 24, Nora, That  at ,  Tdo  I 1 a 

13*1#  COM  DatoS, Plots, Faal  lyS, Charts, MalnS, MalnlS, Flag#,  Y  hard* 

13*2#  l 

13*3#  COM  Stuffs, RodrauS, Digitizes, Ray  _tracoS 

13*4#  COM  INTECER  I , J, Y0_1 oop, Nray , Nray_ehart , Nray_f aal 1 y , Nray_stuf f 
13*3#  COM  INTEGER  Hray  tract, Nray  density, Add  ray,Nc,Ns,Nbeta,Flag 
13**#  I  “ 

13*7#  COM  INTEGER  L1n«  count, Lino  aax,N  1 ncreaent , HI t  total , Psoloct , Hpl b 
13*##  COM  INTEGER  FaalTy.Surf  no  “ 

13*9#  COM  REAL  Thota  er 1 1 1 calTTol ,N1 , N2, N3, Bol ta  ray, Y#, Ya, Yb, Aporturo 
137##  I 

1371#  COM  v_bul lot ,Saax  f aal 1 y , Porcont  laago 

1372#  COM  Xl<*),Yl<*),Xc(*),X2(*>, Y2<  *T, X2oax<*> , Y2aax( •> 

1373#  COM  Y3(*>lY4<*),Bota<*>,S2(*>,Xsurfaax(*>, Ysurfaax<*> 

1374#  I 

1373#  COM  0a< •) , Saax<*> , A1 pha2<  *) , Rho2<  *> , HI t  < ») 

137*#  I 

1377#  INTECER  2,2tabl,2tab2,2tab3,Char  ain.Char  aax 
137##  l 

1379#  •  I  THIS  ROUTINE  BRANS  THE  HEADER  FOR  PRINTED  OUTPUT  FOR  THE  FOLOMINC 
IS###  I  ROUTINES! 
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13110  I  1)  CHART 

13020  !  2>  FAMILY 

13030  I  3>  STUFF 

13040  •  4)  RAY  TRACE 

13030  1 

13000  1 

13070  I 

13000  I  THIS  ROUTIHE  DRAMS  AHD  PRINTS  THE  HEADERS  FOR  TADULAR  DATA. 

13090 

13900  DEC 

13910  Ztabl-33  •  THE  ZTAB'S  CAN  BE  USED  TO  POSITION  TABLE  HEADINGS 

13920  Ztab2«27  !  FOR  THE  PRINTED  OUTPUT 

13930  Ztab3>13 

13940  IF  (Hain*»“Y’)  OR  (Matn«a"y“>  THEN  Main 

13930  IF  (Hainl*a*Y’>  OR  (Mainl*«"y’>  THEN  Mainl 

13900  IF  (Ray  tra ca*-“Y">  OR  (Ray  traea*-“y“>  THEN  Ray  trut 

13970  IF  (Chart*«"Y“ >  OR  (Chart »aTy" )  THEN  Chart 

13900  IF  (Faai  ly*«“Y"  )  OR  (Faat  1  y*«"y* >  THEN  Faaily 

13990  IF  (StuffS-’Y*)  OR  (Stuff*-"y")  THEN  Faulty 

10000  Hal n;  PRINT  PAC£;L1N(2) 

10010  GOSUI  Char  long 

10020  PRINT  L!N<l)7TAl<Z«4b2>;*!N!T!AL  PARAMETER  VALUES” ; LIN< 1 > 

10030  GOSU0  Char  long 

10040  PRINT  LIN(2>~ 

10030  SUBEXIT 

10000  Maim:  IF  Lina  count >Lina  aax  'THEN  C03U1  Haadar  and  long 

10070  PRINT  PACl;LlN<2) 

10000  Lina  count*0 

10090  GOSUB  Char_long 


10100 

PRINT  LIN(l)7TAB(ZtaP3), “RAY 

OA 

Saax 

Alpha2 

RHO 

2* ,LIN( 1 ) 

10110 

DISP  TAB(Ztab3), ‘RAY 

OA 

Saax 

A1 pha2 

RHO  2* 

10120  GOSUB  Char  long 

10130  PRINT  LIN(2)~ 

10140  SUBEXIT 

10130  Chart:  IF  Lina  count >L 4 na  aax  THEN  GOSUB  Haadar  and  long 

10100  PRINT  PACi;LIN(2) 

10170  Lina  counted 

10100  GOSUB  Char  tong 

10190  PRINT  LIN<1>7’RAY  BETA  THETA I (RAY >  NORMAL  RHO  2 

S  ALPHA  2’;LIN(t> 

10200  DISP  "RAY  BETA  THETA  I  (RAY  >  NORMAL  RHO  2 

S  ALPHA  2* 

10210  GOSUB  Char  long 

10220  PRINT  LIN(2)“ 

10230  SUBEXIT 

10240  Paatly:  IF  Lina  count>L1na  aax  THEN  GOSUB  Haadar  and  long 

10230  PAIMT  PAGI;LIN(2> 

10200  Lina  count«0 

10270  GOiuB  Char  long 

10200  PRINT  LINO  >7*  Bagln  Naxt  Xaurf  Yturf  S 

A1pha2  RHO  2* 

10290  PRINT  *  Ray  Ray  (naxt)  ‘(naxt)  (naxt) 

(naxt)  (naxt)*;LIN(l) 

10300  BISP  *  Bagln  Naxt  Xaurf  Yturf  S 

Alpha2  RHO  2* 

10310  GOSUB  Char  long 

10320  PRINT  LIN(2)~ 

10330  SUBSXIT 


10340  Ray  traca:  IF  Lina  eounOLina  aax  THEN  GOSUB  Haadar  and  long 

10330  PRINT  PACl;LIN(2> 


10300 

10370 

10300 

Xa 

10390 


Lina  eount»0 

GOSUB  Char_long 


PRINT 

LIN(1>7"RAY  X0 

Y0 

XI 

Y1 

X2 

Y2 

Ye 

X4 

Y4  "JLIN(I) 

BISP  ’RAY  X0 

Y0 

XI 

Y1 

X2 

Y2 
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Xe  Ye  X*  Y4  * 

1(408  GOSUt  Char  long 

1(410  PRINT  LIN<2>— 

1(420  SUIEXIT 

1(430  Char  long:  FOR  Z-0  TO  T9 

1(440  ~  IP  Z-79  THEN  PRINT  CHR*<228> 

1(430  IP  Z-79  THEN  1(470 

1(4(0  PRINT  CHR*<228>; 

1(470  NEXT  Z 

1(400  RETURN 

1(490  Char_short :  Char_ain-12  •  THIS  ROUTINE  CRN  BE  USES  FOR  SHALL  TABLES 

1(300  ~  Char“aax-64 

1(310  POR~Z-Char  » l n  TO  Char  •*> 

1(320  IP  Z-Char  aln  THEN- PRINT  TAB<Char  min>; 

1(330  IP  Z«Char~aax  THEN  PRINT  CHR*<228- 

1(340  IP  Z-Char“aax  THEN  1(3(0 

1(330  PRINT  CHRf <228) ; 

1(3(0  NEXT  Z 

1(370  RETURN 

1(300  Haadar  «nd  long:  PRINT  L!N<2) 

1(390  -  -  G08UB  Char  long 

1((00  RETURN 

1((10  Haadar  *nd  shor:  PRINT  LIN<2> 

1((20  ~  ~  GOSUB  Char  abort 

1(00  RETURN 

t((40  SUBEND 

1((S0  SUB  Haadar  and 

1(((0  t 

1((70  COH  Alpha, Tal pha, Rho, Trho, Rho  1 nl t 1 al , Trhot , Rhol , Trhol , Rho2, Trho2 
1((80  COH  P , Z3 , Z4, Nora, That ai .Tdalta 

1((90  COH  Data*, Ploti, Paal  ly*, Chart*, Hain#,Hal nl*, FI ag*, Y_hard« 

1(700  ! 

1(710  INTEGER  Z.Char  ain.Char  aax 

1(720  1  THIS  ROUT  I  HE- DR  AMS  THf  FINAL  BOTTOH  LINE  OF  A  TABLE.  SUB  HEADER  ABOVE 

1(730  I  DRAH8  THE  BOTTOH  LINES  ON  PAGES  OF  TABLES  MHILE  OUTPUT  IS  STILL  BEING 

1(740  I  CALCULATED 
1(730  I 

1(7(0  PRINT  LIH<2) 

1(770  FOR  Z-0  TO  79 

1(700  IF  Z-79  THEN  PRINT  CHR*<228)  ' 

1(790  IF  Z-79  THEN  1(010 

1(000  PRINT  CHR«<228>; 

1(010  NEXT  Z 
1(020  SUBEXIT 

1(030  Short:  Char  aln-20  I  THIS  ROUTINE  CAN  BE  USED  TO  FINISH  A  SHALL  TABLE 

1(040  Char- aax«(0  I  TO  USE,  IN8ERT  AN  IP  STATEHENT  AFTER  THE  PRINT  LIN 

<2>  ABOVE 

1(030  FOR  Z-Char  aln  TO  Char  aax 

1(0(0  IP  Z-Char  aln  THEN  PilNT  TAB<Char  Bin); 

1(070  IF  2-Char— aax  THEN  PRINT  CHR*<220> 

1(000  IF  Z-Char— aax  THEN  1(900 

1(090  PRINT  CHR*<228); 

1(900  NEXT  Z 

1(910  SUBEXIT 
1(920  SUB  Stuff 
1(930  OPTION  BASE  0 
1(940  I 

1(930  COH  Alpha, Tal pha, Rho, Trho, Rho_lnl t la) , Trhol , Rhol , Trhol , Rho2, Trho2 
1(9(0  COH  P,Z3,Z4, Nora, Thatal, Tdalta 

1(970  COH  Data*, Plot*, Paally*, Charts, Haln*,Halnt«, Flag*, Y  hard* 

1(900  l 

1(990  COH  Stuff*, Radrau*,Dlgltiza*, Ray  _traca* 

17000  COH  INTEGER  I , J, Y0_1  oop, Nray , Nray_ehart , Nray_f aal ly ,Nray  stuff 
17010  COH  INTEGER  Nray  trac*,Nray  danslTy.Add  ray,Nc,Ns,Nbata,7lag 
17020  I 

17038'  COH  INTEGER  Lina  count, Lina  aax, N  lncraaant,Hlt  total ,P*alact , Hpib 
17040  COH  INTEGER  PaalTy,$urf_no  “ 


155 


17939 
17444 
1 7D70 
17449 
17999 
17199 
17119 
17129 
17139 
17149 
17139 
17199 
17179 
17199 
17199 
17299 
17219 
17229 
17239 
17249 
17239 
17249 
17279 
17299 
17299 
17399 
17319 
17329 
17339 
FAULT 
17349 
17339 
17399 
17379 
17399 
17399 
17499 
17419 
17429 
17439 
17449 
17439 
17449 
17479 
17499 
17499 
17399 
17319 
17329 
17339 
17349 
17339 
17349 
17379 
17399 
17399 
17499 
17419 
17429 
17439 
17449 
17439 
17449 
17479 
17499 
17499 
17799 


con  REAL  Theta  er i t i cal ,  Tol , N1 , N2, N3, Del ta  ray, Y0, Ya, Yb, Aperture 

i 

COH  V  bullet.Saax  faai 1 y, Percent  iaage 

con  xT<#>, Yl<*),Xc<*>,X2<*>, Y2<*7,X2aax<*), Y2aax<#) 

con  Y3<*),Y4<*>>3*t*<*),S2<»)1 Xturf aax<*  > , Yiurf aax<*> 

i 

con  Qa<e) , S«ax<*  > ■ At pha2(* > , Rho2<  *> , Hi t  <*> 


THIS  ROUTINE  COMPUTES  239  POINTS  OP  THE  SURFACE  CHOSEN  IN  FAMILY 
THESE  POINTS  ARE  THEN  USES  IN  OTHER  ROUTINES  TO  TRACE  AN  AR3ITRARY 
NUMBER  OF  RAYS  THROUGH  THE  DESIGN  SURFACE 


DEG 

IF  Y2**»(F*i«ly)>YKFtiiI)i>  THEN  Yb-Yl  CFaai  1  y  > 
IF  Y2aax<Faai  ly)«Yl<Faaily>  THEN  Initialize 


Yb:  D4a-Y2aax<Faai Iy)-X2aax<Faai ty>*Trhol  •  COMPUTE  THE  UPPER  LIMIT 
Xl-D*ay<Talpha-Trhol)  1  OF  THE  APERTURE.  THIS  IS  AN  ESTIMATE  FOR 
Yb-Yl-Xl#Talpha  !  THE  APERTURE  MAY  CHANGE  IN  THE  FINAL  DESIGN 
Apert ure-Yb-Ya  I  THE  ESTIMATE  IS  REOUIRED  TO  CALCULATE  DELY  BELOH 
Initial  is*:  IF  <R*drawS-“Y“ )  OR  <R*dray»-'y'>  THEN  Redraw!  INDICATES 

Ya-Yl<Faai Iy> 

Ap*rtur«»Yb-Ya 

Y9_ai n-Yae<  Tal pha-Trho  t )  ^Tal pha  !  REDRAW  TO  ANOTHER  SCALE 
Y9~aaxaYb*<TaIpha-Trhol )'Talpha 
Nr ay  »tuff«239 

INPU?  'HOW  MANY  RAYS  DO  YOU  WANT  TO  DRAW  THE  SURFACE  UITH  C  DE 
■  239  MAX)  ?',Nray  stuff 

IF  Ya-9  THEN  Add  ray*9 
IF  Ya<  >9  THEN  Add  ray«l 

Xnray-Nray_stuff  •  AVOIDS  MIXED  MODE  ARITHMETIC 

.  D* 1 y«<  YO_aax- YO_a  t  n ) /Xnr ay 

Y9  ain"V4  ain-Dety 

If  Ya“9~ THEN  Y9_ain»Y0_ainfD*ly 
Nr ay  »tuff«Nray  stuffeAdd  ray 
Flag-9 
N»-9 
X2<Ns)-9 
Y2<N»)-9 
D*t*<Ns)-4 
Start:  Stuf f •-"Y* 

FOR  1-1  TO  Nr ay  stuff  I  COMPUTE  THE  COORDINATES  OF  THE  INTERCEPT 
Flag-4  ~  !  OF  THE  INCIDENT  RAY  AND  THE  FIRST  SURFACE 

X-4 

Rho«Rho_i n 1 t 1 al 
Trho-TAN<Rho) 

Y-Y4_aineO*ly#I 

Ns-HS*! 

Yl<N»)-Y 

CALL  Xtpes(X,Y) 

XI <N»)-X 
Next  t:  NEXT  I 
■  DEEP 


Y9-*H* 

INPUT  'DO  YOU  WANT  A  HARD 
IF  <Y»-'Y">  OR  < Y*-"y" > 
CALL  Chart 

DEEP 

Yt-'N* 

INPUT  'DO  YOU  WANT  A  HARD 
IF  <Y9-*Y'>  OR  <Y9-*y*> 

Y9-'N* 

INPUT  'DO  YOU  WANT  A  HARD 
IF  <Y*-*Y*>  OR  < Y9-"y' > 
CALL  Faai 1y 


COPY  OF  THE  COMPUTED  DATA  ?  Y^N” , Y# 
THEN  GOSUD  Yhard 


COPY  OF  THE  CHART  ?  Y^N* , Y* 

THEN  GOSUD  Duap_tt 

COPY  OF  THE  COMPUTED  DATA  ?  YrN",Y» 
THEN  GOSUD  Yhard 
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17713 
1772* 
1773* 
17743 
1775# 
17733 
17773 
17733 
17733 
17333 
17313 
17323 
17333 
17343 
17333 
17333 
17373 
17333 
17393 
17933 
17913 
17923 
17933 
17943 
17933 
17933 
17973 
17933 
17993 
13333 
13313 
13323 
13333 
13343 
13333 
1 3333 
13373 
18333 
18898 
18183 
18118 
18128 
18133 
13143 
18133 
18188 
18173 
13133 
13193 
18233 
13213 
13223 
13233 
13243 
13233 
18283 
13273 
13288 
18293 
13333 
13318 
18328 
18333 
13343 
13333 
ULLET 
18333 


Stuff 8*“H“ 

SUBEXIT 

••drawl  Stuff*»"Y* 

CALL  Plot 
LINE  TYPE  3 
HOVE  3,3 

MW  Y  Dullt</Ttlpht,Y  bulltt 
DRAU  183, Y  bulltt 
HOVE  X2<I> , Y2< 1 ) 

LINE  TYPE  1 
FOR  1-2  TO  Nray  stuff 
DRAW  X2<l>,Y2~I> 

NEXT  I 

HOVE  X2<I-1>,Y2<I-1> 

LORC  2 

LABEL  USING  17S73;Faaily 
I HUGE  X 
R*draw3«“N* 

F1afl-3 
CALL  Graph 
SU3CXIT 

Ouap  ttl  FR INTER  IS  3 

FRINT  CHR3 <27)t*t183T“ 

DUHF  GRHFMICS 

FRINT  CHR*<27>a"M3«T” 

PRINTER  IS  18 
RETURN 

YhardS  Flad#"*l" 

PRINTER  IS  3 
RETURN 
3USEXIT 

SUB  Binary  s*arch<X,Y) 

OPTION  BASE  3 

! 

COH  A I pha, Tal pha, Rho, Trho, Rho  1 nl 1 1  a) , Trhoi , Rhol , Trho 1 , Rho2, Trho2 
CON  F, 23, 24, Nora, Th«t al ,  Td«l  ta 

COH  Dat**,Plot«,Faal  lyS, Chart*, Haln*,Halnl», Flag*, Y^hardS 

I 

COH  Stuff 3, Radraw* ,  D 1  gl t 1 *•», Ray_trac*3 

COH  INTEGER  I,J,Y3  1 oop, Nr ay , Nray ^ehart , Nray _fa»i t y, Nray _stuff 
COH  INTEGER  Nray_t rae*. Nray_d*nsi ty, Add_ray , Nc , Ns, Nb*t a, FI ag 

( 

COH  INTEGER  Lin*  count, Lin*  aax, N_lner*a*nt , HI t_tot al , Ps* 1 *ct , Hpl b 
COH  INTEGER  Fa«lTy,Surf  no  “ 

con  REAL  Th*ta  er 1 1 1  c al , Tol , N1 , N2, N3, D*1 ta_ray , Y9, Ya, Yb, Ap*rt ur* 

I 

COH  Y  bu11*t,3aax  faal 1 y,P*re*nt_1 aag* 

COH  xI<»),Yl<»>,X«<*),X21*), Y2<»),X2*ax<*>,Y2aax<*> 

COH  Y3<»>,Y4<*>,B*ta<*>,S2<*>,Xsurfaax<*>,Ysurf*ax<*> 

I 

COH  0a<*>, Saax<»> , A! pha2<*>, Rho2<*>, Hi t <*> 

! 

I 

I  THIS  ROUTIHE  FINDS  THE  INTERCEPT  OF  THE  RAY  HITH  THE  FOLLOWING. 

1 

1  1)  FIRST  SURFACE 

1  2)  SECOHD  SURFACE 

>  3>  FIRST  I HAGS  PLANE 

I  4>  SECOND  IH AGE  PLANE 

1 

I 

DEC 

DEF  FHA<X,Y)aX-Y/Trho2 
OEF  FHA1<X,Y)aX-Y/Talpha 

DEF  FHXn<A)«A-Y  but  !*t' Trhoi  !  FINOS  THE  INTERCEPT  OF  THE  RAY  AND  Y—Y_B 


Trho2«TAH<Rho2> 


I  RH02  RUST  DE  DECLARED  ELSEWHERE 


f  o 
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18379 

1I3U 

18399 

l«4W 

19418 

18429 

19439 

18449 

19439 

184(9 

19479 

18499 

18499 

19399 

18319 

18329 

19339 

19349 

19339 

193(9 

19379 

19399 

18399 

18(99 

19(19 

19(29 

19(39 

18(49 

19(39 

18((8 

19(79 

19(88 

19(99 

19799 

19718 

18729 

19739 

19749 

18739 

197(9 

18778 

19799 

19799 

19999 

19919 

19929 

19939 

19949 

19939 

189(9 

19979 

19999 

19999 

19999 

19919 

19929 

19939 

19949 

18939 

199(9 

19979 

19999 

19999 

19999 

19919 

19929 


17  Surf  no- 4  THEN  Four 

Xe<Y9_l00p>-FNA<X, Y>  !  FINB  THE  X-INTERCEPT  OF  RH02 

Three:  By«<23-X)*Trho2 
Y-Y-By 
X-Z3 
SUIEX1T 

Four!  By«<Z4-X>#Trho2 
Y-Y*Dy 
X-Z4 
SUBEXIT 
SUB  Graph 

OPTION  BASE  8 
! 

COH  Alpha, Tal pha, Rho,Trho, Rho  initial,  Trhoi , Rhol , Trhol , Rho2, Trho2 
CON  F , Z3i Z4, Nora, Thet  ai , Tde 1 1 a 

CON  Date*, Plot*, Faai  1y*, Chart*, Hain*,nainl«, Flag*, Y  hard* 

i  — 

COn  St uff*, Redraw*,  Dt  gl  t  <  ze*,  Ray  _t  race* 

COH  INTEGER  I , J, YO^Ioop, Nray , Nray_chart ,Nray_faai ly, Nray_*tuf f 
CON  INTEGER  Nray  trace, Nray  density, Add  ray,Nc , N*,Nbeta,Fl ag 
I  “ 

COH  INTEGER  Line  count, Lino  aax,N  i ncreaent , Hi t  t ot al , P*o I oc t , Hp i b 
COH  INTECER  FaalTy, Surf_no  “ 

con  REAL  Theta  er 1 t i ealTTol , N1 , N2.N3, Del t a  ray , Y8, Ya, Yb, Apert ur* 

I  ~  ” 

COn  Y  bullet, Saax  faai 1 y, Percent  iaage 

COH  xT<»>,Yl<e>,Xc<»>,X2<»>,Y2<»7,X2aAX<*>,Y2aax<*> 

con  Y3<»),Y4<*>, Bet a< • > , S2<*> , Xsurf aax<» > , YsurfaaxC* ) 

j 

COH  aa<*>,Saax<e>, Al pha2C*> , Rho2<*> , Hi t<»> 

! 

!  THIS  ROUTINE  BRANS  THE  GLH  FOR  STUFF  ANB  RAY  TRACE  SUBROUTINES 
I  ANB  BIGITIZES  THE  IHACE  PLANE  POSITION  CZ3> 

! 

I 

BEG 

IF  Flag-3  THEN  Haiti 

IF  (Digittze*-*Y*)  OR  <BI gt t t ze»«*y > >  THEN  Digit 
Draw  axe*:  CALL  Plot 

First  surf :  FIXES  2 

LINE  TYPE  8 
HOVE  8,8 

X-Y  bullet /Tal pha 
BRAN  X, Y  bullet 
DRAW  1997y  bullet 
HOVE  8,8“ 

DRAW  X,-Y  bullet 
BRAN  198, -Y  bullet 
x2po*:  hove  X2<1>,Y2<1~ 

FOR  1-2  TO  Nray  stuff 
BRAN  X2< I > , Y2~I ) 

NEXT  I 

X2neg:  HOVE  X2(l),-Y2(l> 

FOR  1-2  TO  Nray  stuff 
DRAW  X2<I),-y5<I> 

NEXT  I 

EXIT  GRAPHICS 
Y*-"N" 

INPUT  "BO  YOU  HANT  A  HARB  COPY  OF  THE  PLOT  WITHOUT  RAYS  ?  Y/N-.Y* 
IF  <Y*-»Y">  OR  < Y*-*y*  >  THEN  GOSUB  Buap  it 
GRAPHICS 

IF  <Redrau*-“Y* >  OR  <Redrau*-*y* >  THEN  Second  iaage 
First  iaage:  LINS  TYPE  3 

HOVE  Z3,Y  bullet 
BRAN  Z3,-Y  bullet 
Second  iaage:  LINE  TYPE~( 
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19(39 

19(49 

19939 

19(69 

19(79 

19(99 

19(99 

191(9 

19119 

19129 

19139 

19149 

19139 

19169 

19179 

19199 

19199 

19299 

19219 

19229 

19239 

19249 

19299 

19269 

19279 

19299 

19299 

19399 

19319 

19329 

19339 

19349 

19339 

19369 

19379 

19399 

19399 

19499 

19419 

19429 

19439 

19449 

19439 

19469 

19479 

19499 

19499 

19399 

19319 

19329 

19339 

19349 

19339 

19369 

19379 

19399 

19899 

19699 

19919 

19929 

19939 

19949 

19939 

19999 

19979 

19999 

19999 


HOVE  24, Y  bul let 
DRAW  24, -Y  bul l«t 
REM  ORAM  THE  RAYS 

IF  <Ray_traceP*“Y“ )  OR  <Ray_t raeeP*“y“>  THEN  Nray_graph*Nray_trace 
IF  <Stu7ff«“Y“)  OR  <StuffP*~y“>  THEN  Nray  graph*Nray  stuff 
First  :  LINE  TYPE  1 

CLIP  0,199, -Y_bul  1st, Y_buM*t 
FOR  1*1  TO  Nray  graph  ” 

HOVE  9, Y1 < iT 
DRAM  XI<I),Y1<1> 

NEXT  I 

Second  :  FOR  1*1  TO  Nray  graph 
MOVE  X1<I),Y1<I) 

ORAM  X2<I),Y2<!) 

NEXT  I 

First  iaage  p:  FOR  1*1  TO  Hray  graph 
MOVE  X2< I > , Y2< 1 > 

ORAM  23, Y3< I > 

NEXT  1 

Decision:  UAIT  2999 

EXIT  GRAPHICS 

SEEP 

YP*“N* 

INPUT  “DO  YOU  HANT  TO  PLOT  TO  THE  SECOND  IMAGE  PLANE  ?  Y/'N'.Y* 
GRAPHICS 

IF  < YP*“N“ >  OR  <YS**n*>  THEM  Mai 1 1 
Second  iaage_p:  FOR  1*1  TO  Nray  graph 
MOVE  23,Y3<I) 

DRAM  24,Y4(I) 

NEXT  I 

Mai 1 1 :  BEEP  !  THIS  ROUTINE  PRESENTS  THE  PLOT  TO  THE  OPERATOR 

MAIT  239  !  IF  A  NOTE  TO  THE  OPERATOR  IS  DESIRED,  ENTER  SETGU.LORG  2 
BEEP  •  HOVE  2.2.CSI2E  2. 3, LABEL  “PRESS  CONT“,CSIZE  13^4.34, 

PAUSE  !  SETUU  AFTER  THE  SECOND  BEEP 
EXIT  GRAPHICS 

IF  <F1 ag*9>  OR  <Flag*3>  THEN  EXIT  GRAPHICS 
SUBEXIT 

Digit:  GRAPHICS  1  THIS  ROUTINE  CHANGES  THE  ANALOG  POSITION 

POINTER  F,9  I  OF  THE  IMAGE  PLANE  ON  THE  GRAPHICS  DEVICE 

DIGITIZE  23,  Y  I  TO  DIGITAL  DATA  FOR  PROCESSING 

LINE  TYPE  3 

MOVE  23, Y  bullet 
DRAM  23, -Y  bullet 
SETGU 
LDIR  9 
LINE  TYPE  1 
LORC  3 
CSIZE  2.3 

Centerx*72.3  •  CHANGE  IN  LAXES  AS  HELL 

MOVE  1 . SeCenterx, 2 
LABEL  USING  19349; 23 
IMAGE  * laage  Plane  :  *,DD. DD, *  Inch* 

SETUU 

CStZE  13'4.34 
UAIT  2399 
EXIT  GRAPHICS 
SUBEXIT 

Duap  it:  PRINTER  13  9 

PRINT  CHRP <  27  >  a “ a  I 99T * 

DUMP  GRAPHICS 

PRINT  CNRP<27>a*ai39T“ 

PRINTER  IS  16 
RETURN 
SUBENO 

SUB  Xlneg(X, Y> 

•  OPTION  BASE  9 


f 

4 

i 


i 


! 

i 

i 

1 

3 

i 

5 


I 


) 
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19780 

19710 

19720 

19730 

19740 

19750 

19768 

19770 

19780 

19790 

19000 

19010 

19020 

19030 

19040 

19850 

19860 

19870 

19080 

19090 

19900 

19910 

19920 

19930 

19940 

19950 

19960 

19970 

19980 

19990 

20080 

20010 

20020 

20030 

20040 

20050 

20060 

20070 

20000 

20090 

20100 

20110 

20120 

20130 

20140 

20150 

20160 

20170 

20100 

20190 

20200 

20210 

20220 

20230 

20240 

20250 

20260 

20270 

20200 

20290 

20300 

20310 

20320 

20330 

20340 

20350 

20360 


con  Alphe,  Tel  phe,  Rho,  Trho,  Rho  ini t  i  el ,  Trhol  ,  Rhol , Trhol ,  Rho2, F,Z3, 24 

I 

SEC 

01 phpna-leAlphe 
Tel  phen«TAN<  A1  phen) 

DEF  FNY1 < Y)«Y*Tel phen/ ( Tel phen- Trho )  !  FINDS  THE  Y-VALUE  OF  THE  INTERCEPT 

QF  THE  RAY  AND  THE  FIRST  SURFACE 
DEF  FNX1 < Y)«Y/Tel  phan  !  FINDS  THE  X-VALUE  OF  THE  INTERCEPT  OF  THE  RAY 
I  AND  THE  FIRST  SURFACE 

YeFNYl < Y> 

Hoops: X»FNX1<Y> 

SUBEND 
SUB  Density 
OPTION  BASE  0 

i 

COn  Alphe, Tel phe, RHo, Trho, Rho_i nt t i *1 , Trhoi , Rhol , Trhol , Rho2, Trho2 
COn  F, 23,24, Nora, Thet si , Tde I t * 

COn  Dete*,Pl ot*, Feai  1 y*, Chert f , Hei nf , Hei n 1 S, F 1 eg*, Y_herd* 

i 

COn  Stuff*, Redrew*, Di gi t i ze(,Rty_trtcel 

con  INTEGER  I, J,Y0_toop,Nrey,Nrey_chert,Nrey_feei I y , Nrey_stuf f 
CON  INTEGER  Nrey  trece,Nrey  density,Add  r  ey ,  Nc  ,  Ns,  Nbete,  FI  eg 
I 

COn  INTEGER  Line  count, Line  eex,N  increment , Hi t  t ot el , Psel ec t , Hpi b 
con  INTEGER  FepiTy,Surf_no 

con  REAL  Thete  cr 1 1 1 e el 7T° I ,  N1 ,  N2, H3, De 1 1 e  rey, Y0, Ye, Yb, Aperture 

! 

COn  Y  bullet, Saex  feet ly, Percent  ieege 

COn  x7<#),Yl<*),Xc<*),X2<e),  Y2<»7,X2eex(*>,Y2eex<*> 

con  Y3<e) , Y4< e) , let e< * > , S2< •) , Xsurf eex<  *> , Ysurf eex<  *> 

I 

CON  Qe<*> , Seex< e) , A1 phe2< • > , Rho2<  *  > , Hi t (*> 

INTEGER  Inc, X.L.N, Lines 

! 

DEG 

<  THIS  ROUTINE  CONFUTES  THE  RAY  DENSITY  IN  ONE  D I HENS  I ON. 

I  ASSUHPTIONS: 

!  1)  THE  POINT  OF  HAXinun  RAY  DENSITY  HAS  BEEN  FOUND  VIA  A 

!  DIGITIZE  STATEHENT. 

!  2)  THE  VALUES  OF  Y3  HAVE  NOT  BEEN  CHANGED  TO  REFLECT  THE 

I  NEW  VALUE  OF  Z3 

I 

PRINTER  IS  16 
Nr ey_dens i ty«Nrey_stuf f 
Re  drew:  FOR  I«1  TO  Nrey  density 
A-Xe < I) 

X-X2U) 

Y«Y2< I ) 

Rho2*Rho2( I > 

Trho2"TAN<Rho2> 

Seae:  Deltey“<Z3-x>*Trho2 

Y3«Y*DeItey 
Y3<I)-Y3 

Del tey«<Z4»Z3)*Trho2 
Y4< l >«Y3< I )*Del t ay 
Next  i;  NEXT  I 
Hit_xero:  HAT  Hi t*2ER<2091 ) 

ln<«0 

Y!a*t"-Y_bul let 
Oelte«Y_bul  letrN_tnere«i 
YnexteYlesteOel  t  "i/Z 
Htt< lnc>*0 

FOR  l«l  TO  Nrey  density 

IF  <Y3< I ) >»YI est »  AND  < Y3< l X Ynext )  THEN  Hi  t < Inc >«Hi t < Inc >*1 
NEXT  I 
Nit  eiddlel 


>  RECOHPUTE  THE  VALUE  OF  Y3 


t  ZERO  THE  ARRAY 
•  FIND  THE  No.  OF  HITS  IN  THE  INTERVAL 
I  C-Y  BULLET,  -Y  BULLET* DELTAS} 


I  FIND  THE  No.  OF  HITS  IN  THE  INTERVAL 


»  .  .  s 


!  X  OF  RAYS  THAT  ARRIVE  AT  THE 
I  IMAGE  PLANE 
I  PLOT  AND  LADEL  THE  AXES 

I  DRAM  THE  HISTOGRAM 
C-Y_bullet,  -Yj5ullet*DELTA/2> 


29379  >  C-Y  but  1  •t*DELTA/'2>  Y  bul I *t-DELTA/2> 

29399  FOR  L*1  TO  2#N_i  nereeent  - 1 

29339  Inc*  Inc  + 1  ~ 

29499  Hi t  < Inc  )*9 

29419  Y1  est *Ynext 

29429  Ynext*YI  est *De! t e 

29439  FOR  1*1  TO  Nrey  density 

29449  IF  < Y3< I >  >*Y 1 est  >  AND  ( Y3< I )< Ynext >  THEN  Hi t < Inc >»Hi t < In 

#>♦1 

29499  NEXT  I 

29499  NEXT  L 

29479  Hit_lest:  Ine*2*N  inereeent  !  FIND  THE  No.  OF  HITS  IN  THE  LAST  INTERVAL 
29499  Hite Inc7»9  I  £ Y_bul 1 et -0ELTA/2,  Y_bull*t] 

29499  Y 1 sst *Y  but let-Del le/2  “  “ 

29999  Ynext *Y~bul 1 «t 

29919  FOR  1*1  TO  Nrey  density 

29929  IF  <Y3<I)>»Ylest>  AND  <  Y3<I  X  *Ynext )  THEN  Hi  t  <  Inc  >*Hi  t  <  Inc  >♦! 

29939  NEXT  I 

29949  Noreel  tie!  Hit  totel*9  !  NORMALIZE  THE  No.  OF  HITS  ON  THE 

29999  FOR- I *9  TO  2*N  inereeent  !  IMAGE  PLANE  <Z3>  TO  THE  TOTAL 

29999  Hit  totel*Hi?  totel+HitU)  <  No.  OF  HITS 

29979  NEXT  T 

29999  ! 

29999  IF  Hi  t_totel *0  THEN  None 

29699  FOR  1*9  TO  2*N  inereeent 

29619  Hit<I)*Hit<l7/Hit  totel 

29629  NEXT  I 

29639  None:  Pet »Ht t_t ot el /Nrey_densi ty 

29649  Percent-ieefle*Pet*799 

29639  Greph:  CALL  Plot 

29669  IF  Hi t_totel *9  THEN  Lebel_ 

29679  First  ber:  Xlest*-Y  bullet 
29699  ”  Xnext*X1  est»Del  te/2  !  INTERVAL 

29699  Inc -9 

29799  IF  Hi t < Inc )*9  THEN  Middle  bers 

29719  CLIP  XI est ,Xnext ,9, Hi t  < Inc  >— 

29729  FRAME 

29739  G0SU1  Delt 

29749  Hiddle_bers:  FOR  1-1  TO  2*N  inereeent-l  !  INTERVAL 

29739  Inc«Ine*l  ~  >  t-Y  bul 1et*DELTA/2,  Y  bul let-DELTA/2> 

29769  XIest«Xnext 

29779  Xnext*xl est ♦Del te 

29799  IF  HI t  < Inc )*9  THEN  Next_i_e 

29799  CLIP  Xlest, Xnext, 9.Hit(Inc>~ 

29999  FRAME 

29919  G09UD  Delt 

29929  Mext_i_e:  NEXT  I 

29939  Le*t_ber:  In«*2#N  inereeent  <  INTERVAL  CY  bullet -OELTA/2 ,  Y  bullet] 

29949  Xleet*Y~bul  Iet-Delter2 

29939  Xnext *Y~bu llet 

29969  IF  Hi7< Inc  >*9  THEN  Lebel 

29979  CLIP  XI  est , Xnext ,  9,  HI  t  ( Inc7 

29999  FRAME 

29999  G09UI  Delt 

29999  Lebel  1  Dtflt t i xe*-“N“ 

29919  “  FI eg*3 

29929  CALL  Greph 

29939  SUIEXIT 

29949  Delt:  Lines*19 

29939  Del t*< Xnext -XI est > /Lines 

29969  X»Xlest-Oelt 

29979  FOR  3*1  TO  Lines 

29999  X*X+Delt 

29999  MOVE  X,9 

21999  DRAM  X,Hit<Ine> 

21919  -  NEXT  } 

21929  RETURN 
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21030  SUBEND 

21040  SUB  Hir><Xa<*),X, INTEGER  H> 

21090  OPTION  BASE  0 
21060  < 

21070  DIN  Xa<H> 

21080  > 

21090  ‘  THIS  ROUTINE  FINDS  THE  HINIHUH  ELEHENT  IN  A  ONE  DIHENSIONAL  ARRAY 

21100  • 

21110  X«Xa<0> 

21120  FOR  I«t  TO  N 
21130  X»Hi n<X, Xa< 1 >  > 

21140  NEXT  I 
21190  SUBEND 

21160  SUB  Hax<Xa<*>,X, INTEGER  H> 

21170  OPTION  BASE  0 
21  ISO  < 

21190  DIN  Xa<H) 

21200  ! 

21210  !  THIS  ROUTINE  FINDS  THE  NAXIHUN  ELEHENT  IN  A  ONE  DIHENSIONAL  ARRAY 

21220  ! 

21230  X«Xa<0> 

21240  FOR  I«1  TO  N 
21290  X«HAX<X, Xa< I >  > 

21260  NEXT  I 
21270  SUBEND 


O 

I 


162 


APPENDIX  B 

TRACE  PROGRAM  DESCRIPTION  AND  PROGRAM  LISTING 

TRACE  was  the  first  program  written  for  this  thesis. 
TRACE  was  written  for  the  purpose  of  automating  the  task 
of  drawing  the  ray  diagram  produced  when  tracing  rays 
through  a  conical  lens  with  various  second  surfaces.  The 
program  consists  of  a  set  of  subroutines  called  from  a 
control  program  which  are  designed  to  perform  a  specific 
task(s) .  A  detailed  description  of  each  subroutine  will 
not  be  given  because  TRACE  has  extensive  documentation 
included  within  the  program.  However,  an  abbreviated 
discussion  of  the  geometric  relationships  at  the  first 
and  second  surfaces  and  the  bisection  routine  in  subroutine 
BINARY  SEARCH  follows. 

TRACE  occupies  approximately  145  Kbytes  of  memory  which 
is  approximately  77%  of  available  memory  (11).  A  listing 
of  TRACE  is  at  the  end  of  this  appendix. 

TRACE  was  designed  to  calculate  the  trajectory  of  up  to 
250  rays  incident  upon  the  first  surface  in  the  upper  half¬ 
plane  as  illustrated  in  figure  B-l.  All  of  the  parameters 
shown  in  figure  B-l  are  provided  by  the  operator  except  Z4, 
the  location  of  the  permanent  Image  plane,  which  is  set  for 
Z4  »  50  inches.  All  of  the  parameter  values  provided  by  the 
operator  have  default  values  declared  either  in  subroutine 
DIALOGUE,  line  number  13810  or  the  MAIN  routine,  line  number 
10. 
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TRACE  calculates  the  complete  trajectory  o£  each  ray 
before  proceeding  to  the  next  ray.  Each  surface  is  assigned 
a  number  with  the  vertical  axis,  y,  defined  as  the  zeroth 
surface.  All  incident  rays  originate  on  the  y-axis  and  are 
assumed  to  be  parallel  with  the  source  at  infinity.  The 
first  surface  shown  in  figure  B-2  encountered  is  the  exterior 
of  the  conical  spike  which,  in  two  dimensions,  is  a  plane 
perpendicular  to  the  meriodional  plane,  the  paper,  with  a 
cone  half-angle  a.  The  incident  angle  makes  an  angle  of 
incidence  6I  with  the  first  surface  normal  n  at  point  T 
according  to 

0J  *  j  (a  +  |  pj  | ) 

Noting  that  a  »  012,  pR  »  |  NORM  |  -  0R,  NORM  »  a2  -  j  (B-l) 

and  applying  Snell's  Law  sin0R  *  (n1/n2)sin0I  (B-2) 

yields 

PR  *  “2  +  0R’I 

the  ray  angle  in  the  lens  referred  to  as  pi  in  chapter  III 
and  Appendix  F.  As  the  incident  ray  angle  p^  increases  the 
aungle  of  incidence  0j  decreases  to  zero  when  the  incident 
causing  9 ^  to  transition  through  the  normal  as  shown  in 
figure  B-3,  subroutine  SNELL  in  TRACE  detects  this  transition 
as  a  change  in  sign  in  0j.  Snell's  Law  is  defined  with  all 
arguments  positive.  Therefore  the  magnitude  of  0^  is  used 
to  determine  0R  and  thus  pR  according  to 
sin0R  ■  (nj/n^JsinOj  yielding 

0R  -  a2  +  0R  -  j  (B-3) 

which  is  the  same  result  for  >  0. 
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The  application  of  Snell's  Law  at  the  second  surface  of 
the  lens  is  very  similar  to  the.  first  surface.  The  geometry 


for  >0  is  shown  in  figure  B-4  and  for  <  0  in 

figure  B-5.  Some  of  the  rays  inside  the  lens  may  intercept 
the  GLM  axis  at  x  <  zl  and  therefore  may  intercept  the 
branch  of  the  second  surface  in  the  lower  half -plane.  The 
geometry  for  this  case  is  shown  in  figure  B-6 .  A  signif icant 
difference  between  rays  intercepting  the  positive  and  negative 
branches  of  the  second  surface  is  the  definition  of  the  normal 
direction  n.  In  figures  B-4  and  B-5  the  direction  of  n  is 
into  the  lens  where  in  figure  B-6,  n  is  defined  to  be  out  of 
the  lens.  Practically,  this  contradiction  in  definition  has 
no  effect  on  TRACE  because  the  angle  of  the  normal  used  in 
applying  Snell's  Law  has  always  been  the  acute  angle  as  la¬ 
beled  in  all  of  the  figures.  The  direction  of  n  in  figure 
B-6  was  changed  to  reflect  the  change  in  sign  of  NORM. 

The  search  for  and  calculation  of  the  intercept  of  the 
ray  refracted  at  the  first  surface  and  the  second  surface  is 
accomplished  in  subroutine  BINARY  SEARCH.  The  primary  method 
used  is  the  bisection  method  illustrated  in  figure  B-7.  The 
bisection  method  cam  only  be  applied  where  the  ray  in  the 
lens  is  known  to  intercept  the  second  surface  of  the  lens. 
Examples  of  rays  which  do  not  intercept  the  second  surface 
are  shown  in  figures  C-2,  C-5  and  C-10.  The  method  used  for 
the  rays  which  do  not  intercept  the  second  surface  is  dis¬ 
cussed  later. 
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Geometry  and  Symbol  Definition  for  the  Application  of 
Snell's  Law  at  the  Positive  Branch  of  the  Second  Surface 


(REF) 


GLM  AXIS  (REF) 


SECOND  SURFACE 


€ 


It. 

♦8 


SIXV  WK)  WONJ  SniQVN 


•o 

<u 

(0 

p 

T3 

0 


<u 

33 

C 

O 

•rH 

■P 

o 

<u 

01 

■H 

X 

+> 


X 

X 

3 

cn 


■a 
<o 

M 
■p 

<o  X 
3  «C 
r-*  58 
rH  W 
H  X 


r-~ 

I 

X 

0) 

H 

3 

O 

&4 


( 


172 


V. 


The  bisection  method  converges  to  the  intercept  value 
quickly,  especially  if  the  ray  is  nearly  normal  to  the  second 
surface.  The  sequence  of  events  is  depicted  in  figure  B-7  by 
the  circled  numbers  1  ,  2  ,  etc.  Assuming  pi  is  known, 

the  intercept  of  the  GLM  axis.  A,  of  the  ray  in  the  lens  is 
found.  The  first  step  in  the  bisection  sequence,  1  is  to 
find  the  midpoint  of  QA.  The  midpoint  of  QA,  (x^^,  ymi  is 
calculated  under  label  Recurse  _p,  line  7440  of  TRACE.  The 
midpoint  is  then  compared  to  the  value  of  the  second  surface 
at  y»y  .  H .  The  midpoint  in  figure  B-7  is  behind  the  second 
surface.  Step  2  finds  one  midpoint  of  the  line  segment  from 
Q  to  the  midpoint  of  QA.  A  comparison  is  again  made  with 
the  second  surface.  Now,  the  present  location  is  ahead  of 
the  second  surface.  Step  3  is  executed  and  the  location  is 
again  compared  with  the  second  surface.  The  process  conti¬ 
nues  until  the  difference  between  the  present  location  on 
the  ray  (xmid,  y^^  and  the  true  value  of  the  intercept 

(x2'  ymid)  '  I xmid”x2  ^  is  less  a  sPecified  tolerance, 

tol  »  10~5.  Once  the  intercept  of  the  ray  and  the  second 
surface  has  been  found  then  go  to  label  Done,  line  8140,  to 
define  the  (x,  y)  coordinates  of  the  intercept.  The  x- 
coordinate  is  defined  as  the  average  of  the  present  location 
on  the  ray,  x^^,  and  x2,  the  value  of  the  second  surface  at 

y*ymid* 

The  ray  may  paBS  ahead,  shown  by  A  <  Zl,  of  the  second 
surface.  The  test  for  A  <  Zl  is  conducted  in  line  6860. 
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If  the  test  is  true  a  jump  to  line  7720  is  performed.  A  test 
is  conducted  in  line  7870  to  determine  if  the  ray  intercepts 
the  negative  branch  of  the  second  surface.  If  the  test  is 
true  then  a  jump  to  line  8080  is  made  to  prepare  to  enter  the 
bisection  method  for  the  negative  branch,  which  is  identical 
to  the  method  for  the  positive  branch  described  above.  The 
test  performed  in  line  7870  will  not  detect  a  ray  that  is 
just  tangent  to  the  second  surface.  The  slow  march  method, 
lines  7840  to  8000,  is  employed  to  search  and  find  the  inter¬ 
cept  (A,  0)  and  marches  down  the  ray  until  the  second 
surface  intercept  is  found  within  the  tolerance,  or  the  wall 
of  the  GLM,  y  =  -Y_  bullet  is  reached.  If  y  =  -Y_  bullet 
then  the  march  is  terminated  and  a  jump  to  line  8250  via  8150 
is  made  to  exit  the  subroutine. 

A  special  case  exists  when  9^,  <  0.  The  ray  in  the  lens 
could  intercept  the  positive  branch.  A  test  is  conducted  in 
line  7010  to  determine  if  the  ray  intercepts  the  positive 
branch.  If  the  test  is  true  a  jump  is  made  to  line  7330  for 
entry  into  the  bisection  method.  If  the  test  fails  then  the 
marching  method  is  used.  The  application  of  the  marching 
method  for  this  case  is  made  from  line  7100  to  7320. 

Another  special  case  exists  when  the  polynomial  used  to 
describe  the  second  surface  causes  the  second  surface  to 
intercept  the  first  surface  at  |y|  <  bullet.  The  test 
for  this  case  is  conducted  in  line  7370  for  the  positive 
branch  and  line  7770  for  the  negative  branch.  If  the  test 


(  ) 
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is  true,  then  a  jump  is  made  to  line  8280  and  the  subroutine 
is  exited. 

The  "success"  of  a  conical  lens  is  whether  light  rays  can 
be  focused  to  a  point.  Success  is  determined  two  ways.  The 
first  is  the  ray  diagram;  compare  figures  14,  22,  C-2,  C-10 
and  C-16  for  the  ability  of  each  lens  to  focus  light  rays. 

The  second  method  is  by  a  histogram  of  the  ray  distribution 
on  the  image  plane.  The  desired  histogram  is  a  delta  func¬ 
tion  at  the  origin  as  shown  in  figures  15  and  23.  Undesir¬ 
able  histograms  are  shown  in  figures  C-3,  C-7,  C-13,  C-14  and 
C-17.  The  histogram  is  calculated  by  dividing  the  image 
plane  in  the  upper  half -plane  into  an  even  number  of  intervals 
equal  to  N_increioent.  The  division  of  the  image  plane  is  also 
performed  in  the  lower  half  plane  as  shown  in  figure  B-8.  The 
intervals  are  arranged  such  that  the  GLM  axis  is  straddled  by 
the  center  interval,  thus  adding  a  half -interval  to  each 
extremity  of  the  image  plane.  Hence,  the  total  number  of 
intervals  is  then  2*N_JLncreraent  +1.  The  generation  of  the 
histogram  is  executed  in  subroutine  DENSITY,  line  17920. 

The  algorithm  checks  each  interval  for  an  intercept  of  a  ray 
with  the  image  plane  in  lines  18440  to  18820,  DENSITY  then 
normalizes  the  distribution  to  the  number  of  hits  on  the 
image  plane,  not  the  total  number  of  rays  in  lines  18830  to 
18930.  The  percentage  of  the  rays  striking  the  image  plane 
is  calculated  in  lines  18920  and  18930  and  displayed  to  the 
operator  by  subroutine  LAXES  in  lines  12870  and  12880.  The 
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percentage  label  serves  to  remind  the  operator  that  the 
histogram  represents  the  distribution  of  the  rays  actually 
striking  the  image  plane  within  the  boundaries  of  the  GLM. 

The  subroutines  in  Table  B-l  were  copied  or  derived 
from  the  HP-9845B  utilities  library  for  use  in  TRACE. 


TABLE  B-I 


SUBROUTINES  DERIVED  FROM  THE  HP-9845B  UTILITIES  LIBRARY 


Naiae 

Line  No, 

Main 

18 

Plot 

10170 

Laxes 

11430 

Dialogue 

13810 

■  - 

€ 


TRACS  PROGRAM  LISTING 


10  NORMAL 
20  PRINTER  IS 
30  PRINT  PAGE 
40  FIXED  2 


1« 


30  PRINT  "***«**•**♦***•« 
<0  PRINT  "• 

70  PRINT  ** 

00  PRINT  *• 

90  PRINT  **************** 
100  DISP  "THIS  IS  TRACE” 
110  WAIT  1300 
120  Hat nl OPT  ION  BASE  0 


TRACE 


130 

140 

130 

160 

170 

180 

190 

200 

210 

220 

230 

240 

230 

260 

270 

280 

290 

300 

310 

320 


! 

con  INTEGER  I , J, Curut , Np,  Nn,  N,  Na,  Nr ,  REAL  AnagC 17) , Apos< 17) , A< 17) , 21 , 23, 24 
CON  A1 pha, T*l pha,  Rho,  Trho,  Rho_i  ni t  i  at , Trhoi  ,Phi , Tol , Nora, Alpha2 
COn  N1 , N2,N3, P*rc«n«_i aagt, Ya, Yb, Apart urt, Y_bu) 1 tt 

I  ~  ~ 

COn  INTEGER  Y0_l oop, Nr  ay , Add_r ay , Surf_no, FI ag, FI ag2, N_i rtcraatnt ,  Hi  t_»  ot  at 
COn  INTEGER  Li ntcount , Li rttaax 
CON  INTEGER  Patlect.Hpib 

I 

CON  REAL  Nain,Naax,R0_aax 

COn  Ray  tract*, Di gi  t i zt*. Grin*, G#,GrtncS, PI ot*, Date* 
con  X< 1230) , Y< 1230  > , Xc  <230) , N<  230) , R ( 250) 

i 

con  Rho<730) , Phi (230) , C(230) , Y3(230),Hil (2001 > 


INTEGER  2z,Char  aax 
DISP  ■■ 

OVERLAP  ! 

CALL  Dialogut 

DEG 


SEE  THE  9043  OPERATING  AND  PROGRAMMING  MANUAL 


330  Coaaant*: 

340 

330 

360 

370 

380 

390 

400 

410 

420 

430 

440 

430 

460 

470 

480 

490 

500 

T 

310 

320 

330 

340 

330 

360 

370 

300 

390 


FLAGS  ARE  USED  THROUGHOUT  THE  PROGRAM  TO  INDICATE  VARIOUS 
CONDITIONS  WHICH  INFLUENCE  THE  BEHAVIOR  AND  TREATMENT  OF  THE 
LIGHT  RAY  AS  IT  PASSES  THROUGH  THE  LENS  SYSTEM.  THE  EXPLANATION 
OF  FLAGS  USED  IN  THE  GENERATION  OF  THE  RAY  DIAGRAMS 
AND  THE  DECLARATION  LOCATION  IS  GIVEN  BELOU: 

FLAG  S 

1)  8  ■>  DECLARED  IN  MAIN  AND  BINARY  SEARCH 

RESET  CONDITION 

2)  1  •>  DECLARED  IN  BINARY  SEARCH 

RAY  INTERCEPTS  THE  NEGATIVE  BRANCH 

3)  3  »>  DECLARED  IN  SNELL 

Thtta  I  <  8  DEGREES 

4)  10  ■  >  DECLARED  IN  SNELL 

TOTAL  INTERNAL  REFLECTION 
3)  13  ■>  DECLARE  IN  SNELL 

THE  RAY  LEAVES  THE  SECOND  SURFACE  >'ITH 

ABSCRHO >  >  90  DEGREES  (THE  RAY  HILL  NOT  INTERCEP 

THE  IMAGE  PLANE) 

6)  20  ■>  DECLARED  IN  BINARY  SEARCH 

THE  RAY  HISSES  BOTH  THE  POSITIVE  AND  NEGATIVE 
BRANCHES  FOR  Thttal  >  OR  <  0  DEGREES 

7)  30  ■>  DECLARED  IN  BINARY  SEARCH 

THE  SECOND  SURFACE  BENDS  AROUND  AND  CROSSES  THE 
FIRST  SURFACE 


600 

610 

620 

630 

640 

630 

660 


Ftaa2  : 

1)  0  ■>  DECLARED  IN  MAIN  AND  BINARY  SEARCH 

RESET  CONDITION 

2)  1  ■>  DECLARED  IN  BINARY  SEARCH 

THE  RAY  INTERCEPTS  THE  NEGATIVE  BRANCH 

NOTE!  THESE  ARE  NOT  ALL  OF  THE  FLAGS,  JUST  THE  ONES  AFFECTING 


i 


j 

i 

!< 

I 

? 


o 
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RAYS 


679 

699 


699  Gyanaatie*: 

799 

719 

rd* 


Y  hardM'N* 

F7ag2»-“1" 

INPUT  “00  TOU  WANT  A  HARD  COPY  OF  THE  COMPUTED  DATA?  Y'N“,Y  ha 


729 

739 

749 

739 

769 

779 

789 

799 

888 

N",Y  hard* 
819  ~ 

929 

839 

848 

839 

868 

879 

889 

899 

999 

919 

929 

939 

949 

939 

969 

978  Iaage_p: 
988  laage'n: 


IF  <Y  hard*«“N“>  OR  <Y  hard*»“n“>  THEN  Ftag2M“8“ 

GOSUB~Yhard 
COSUB  Printer 

DEEP 

PAUSE 

IF  <G*«“Y“>  OR  <G*«“y“>  THEN  GOSU*  H*ad«r  grin 
IF  <G#«“Y“>  OR  <G*«“y">  THEN  Initialize  run 
Y  hard*«“N“ 

INPUT  “DO  YOU  WANT  A  HARD  COPY  OF  THE  COEFICIENTS  PRINTED  *>  Y / 

IF  <Y  hard*«“N“>  OR  <Y  hard*»“n“>  THEN  1988 
G03UI~Yhard 
GOSUi  Header  coef 
FOR  Ie9  TO  Hp 

IF  L tree ount >Li neaax  THEN  GOSUI  Header  coef 
PRINT  USING  !aage_pj I , Apos( I > 

Li nec ount «Li recount *1 
NEXT  I 

IF  Li  recount >Li neaax  THEN  GOSUI  Header  coef 
PRINT 

L i nec  ount -L 1 nec  ount ♦ 1 
FOR  I >9  TO  Nn 

IF  L i nec ount >Li neaax  THEN  GOSUI  Header_coef 
PRINT  USING  taage_n; I , Aneg< I > 

L  t  necount  «L  t  recount ♦ 1 
NEXT  I 

IMAGE  23X , “ Apos < “ 00 * )  ■  “,K 
IMAGE  23X, "Aneg< "DO* )  »  “,K 


999 

1999 

1918 

1929 

1938 

1949 

1938 

1969 

1979 

1989 

1999 

1199 

1119 

1129 

1139 

1149 

1139 

1169 

1179 

1189 

1199 

1299 

1219 

1229 

1239 

1249 

1239 

1269 

1279 

1299 

1299 

1399 

1319 


GOSUI  Header  coef  end 
PRINT  L1N<2>(“ PRESS"*CONT “ 

PAUSE 

IF  Flag2*»“l“  THEN  Y  hard*»“Y“ 

GOSUI  Yhard 
G08UI  Header 
Initialize  run: Surf  no«8 
Z 1 *Apoe  <  9 ) 

IF  <G*«*Y“)  OR  <c*e“y”>  THEN  Z3«13 
YR^atneYaelTalpha-Trhoi l^Talpha 
Y9~aax«Yb*<Talpha-Trhoi >'Talpha 

Xnray“Nray  !  TO  KEEP  FROM  USIN  MIXED  NODE  ARITHMETIC 

Delye<Y8  aax-Y8  ain)rXnray 
Y9  atn-Y8  ain-Dely 

IF  Ya“9_ THEN  Y8_»in«Y8_ain+Dely 
Nray«Nray+Add  ray 
N*«-l  ”l  COUNTERS 

Nr»-1 
Xe<8)»9 
N<9>-9 
Ph!<9>«9 
C<8>-9 

FOR  Y9_l00p“l  TO  Nray 
F1age9~ 

Flag  2-9 
X-9 

RhoeRho  initial 
Trh«eTAN<Rho) 

Xy9  loop»Y8_loop 
Y»y5  Bin*0eTy«Xy9  loop 
N»eN»*l 
Nr«Hr*l 
X<N*>>X 


Y8_l oop: 


t  RESET  FLAG 


1 

* 

i 

j 

$ 

i 

* 

* 


•i 

f 

i 


180 
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1329  Y<Na>-Y 

1339  Rho<Nr)-Rho 

1349  Ona:  Surf  no»l 
13S9  N»-Na*t 

1369  Nr-Nr*l 

1379  CALL  ltn«ry  saarch<X,Y> 

1389  X<Na)-X 

1389  Y<Na>-Y 

1499  CALL  SnilKX.Y) 

1419  Rho<  Nr ) -Rho 

1429  IF  <C«-“Y“>  OR  <C*-“y“>  THEN  Phi < Y0_1 oop>-Phi 

1439  Tuo:  Surf  no-2 
1449  N.-Nj*! 

1499  Nr«Nr*l 

1 489  CALL  Unary  aaareh<X,Y) 

1470  X<Na)-X 

1480  Y<Na>-Y 

1499  IF  <C»«"Y“1  OR  <C*-“y“ >  THEN  Blind 

1980  IF  F 1 ag-28  THEN  Blind 

1910  IF  Flag-30  THEN  Flag  30 

1920  CALL  Snail <X.Y) 

1939  Rho  <  Nr) -Rho 

1940  Flag  19:  IF  F1ag<>19  THEN  Flag  19 

1990  “  GOTO  Blind 

1989  Flag  101  IF  FiagOlO  THEN  Thraa  1  FLAC_30  WHEN  FIXED 
1979  ~  Xc  < Y9  1 oop>-0 

1989  Rho<Nr >-0 

1999  GOTO  Blind 

1609  Flag  30:  IF  F1ag<>39  THEN  Thraa 

1819  "  Xc< Y9  loop>»0 

1820  Rho<Nr >-0 

1030  GOTO  Blind 

1840  Thraa:  Surf  no-3  i  FIRST  (HOVABLE)  I  WAGE  PLANE 
1899  Na-Na*l 

1889  CALL  Binary  aaareh<X,Y> 

1070  X<Na)-X 

1099  Y<Ha)-Y 

1690  Four:  Surf  no-4 
1790  N»-N»*l 

1710  CALL  Binary  aaarch<X,Y) 

1720  X<Na)-X 

1739  Y<Na)-Y 

1749  GOTO  Naxt  y9  loop 

1799  Blind:  Na-Na*l  “  T  THE  RAY  CROSSED  AHEAD  OF  THE  SECOND  SURFACE 

1769  X(Na)-9  I  AND  WAS  NOT  REFRACTED 

1770  Y<Na>-9 

1799  Ha-Ha* 1 

1799  X<Na>-0 

1909  Y<Na>-0 

1910  Naxt  y9  loop:  FIXED  2 

1029  Nap-Ha- l 

1939  IF  <G8-*Y*>  OR  <G*-"y*>  THEN  Prtnt_grin 

1849  IF  LinacounOLtnaaax  THEN  GOSUB  Haadar 

1099  PRINT  USING  laaga  data; XCNap-3> 5 Y<Nap-3> ; X<Nap-2> i Y<Nap-2> ; X< 

Nap-1>; Y<Nap-l>;Xe<Y0_Ioop>;0;X<Nap>7Y<Nap>;Rho 
I960  Linacount-Linacount*l 

1979  GOTO  Conti  nut 

1999  Print  grin:  IF  Linaeount >Ltnaaax  THEN  GOSUB  Haadar_grin 

1099  ~  PRINT  USING  laaga  dat a_g;X<Nap-3> ; Y<N»p-3> ; X<N»p-2> ; Y<N»p-2> ; X< 

Nap- l  > ;  Y  <  Nap- 1  > ;  Xe  <  Y0_1  oop  > ;  0 ;  N  <  Y0J  oop  > ;  Rho 

1990  Linaeount -Linaeount* I 
1910  Conti nua:  NEXT  Y0  loop 

1920  1 

1939  I 

1949  laaga  data:  IHAGE  X<2<0. DO, X, DD. DD.3X) , DD. DD,X, DD. DD, IX, 6D. DD,X, D. DD, 3X, 3D. 

DD,X,4D.DD73Xp4D.DD> 

1990  i  laaga  data:  IN AGE  D,2X,DD. DD, 3X, OB. DD.2X, DD.  DD, 3X, DD. DD, 2X, DDD. DD, 3X, gD. 2 
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D,2X,0,3X,DD.DD,2X,SD.DD,3X,4D.DD  !  USE  THIS  FOR  Y  IULLET  >  10  INCHES 

I960  I 

1970  Iaaga  data  g:  IMAGE  7XC2C0. OS, XO. 00, 3X> , 00. »B,X, 00. 00, 3X, 3D. 00, X, D. DO, 3X, OB 
.00, 3X, 40. 00) 

1900  ! 

1990  ! 

2000  GOSUI  H«  »d»r  and 

2010  GOSUS  Yhard  and 

2020  PRINT  L IN<  2) , ~F IN  I  SHED" 

2030  OEEP 

2040  UNIT  290 

2090  OEEP 

20C0  IF  <G*-*Y*>  OR  <C*a‘y">  THEN  Graph_grin 

2070  Ray  traea*«'N" 

2080  INPUT  '00  YOU  MONT  TO  PLOT  THE  RESULTS  OF  THE  TRACE  ?  Y'N* , Ray_t r aca 

S 

2090  IF  CRay  traea#«*N")  OR  CRay  traeat«"n‘>  THEN  Rarun 

2100  INPUT  "ON-UHICH  DEVICE:  CRT  <C>  OR  THE  9872  <P>  ?  P/C",Plot* 

2110  IF  CPI ot*a"C“ )  OR  <Plot*a“e*>  THEN  Graph 

2120  INPUT  'PLEASE  ENTER  THE  SELECT  CODE  OF  THE  GRAPHICS  DEVICE  < DEFAULT 

■  7  )*,Psa1act 

2130  INPUT  'PLEASE  ENTER  THE  NPIB  ADDRESS  OF  THE  GRAPHICS  DEVICE  C DEFAULT 

-  9  >',Npib 

2140  Graph:  CALL  Graph 

2190  Y*-"N* 

2 ISO  INPUT  *00  YOU  MANT  ANOTHER  PLOT  DRAUN  TO  A  DIFFERENT  SCALE  ?  Y'N'.YS 

2170  IF  CY*«“Y*>  OR  CY*a*y*>  THEN  Graph 

2100  Dansity:  PRINTER  IS  16 

2190  PRINT  PAGE,*  Tha  point  of  aaxiaua  ray  density  is  datarainad  by  yo 

u  visual ly. * 

2200  PRINT  'by  placing  tha  cross-hairs  <thay  will  appaar  autoaat i cal  I y > 


2210 

2220 

,down, <-,->) 
2230 
button* 

2240 

s" 

2230 

2260 

2270 

2200 

2290 

rays* 

2300 
2310 
2320 
2330 
2340 
2390 
2360 
2370 
2300 
2390 
2400 
2410 
2420 
2430 
2440 
2430 
2460 
2470 
2400 
2490 
2900  • 


PRINT  “ovar  tha  position  of  aaxiaua  dansity.* 

PRINT  *  This  is  accoaptishad  by  using  tha  DISPLAY  controls  Cup 

PRINT  *Uhan  you  gat  cursor  in  tha  araa  of  intarast,  usa  tha  SHIFT 

PRINT  "uith  tha  DISPLAY  controls  (both  shift  and  display  control 

PRINT  ‘should  ba  daprassad  slaul tanaousl y )  for  fina  pocitioing.* 
PRINT  LINC2), *  Tha  position  of  tha  vortical  hair  is  critical," 
PRINT  *bacausa  its  location  is  usad  for  tha  position  of  tha  * 
PRINT  * iaaga  plana  CZ3)  on  tha  GLM  axis.* 

PRINT  LIH(2>. "CAUTION  :  Do  not  lot  tha  ioago  plana  tntarcapt  any 

PRINT  *tn  tha  intarlor  of  tha  Ians.  If  this  is  dona,  thosa  rays* 
PRINT  "wi l l  ba  tncludad  in  tha  histograa." 

PRINT  -PRESS  COHT* 

PAUSE 

PRINT  PAGE,*  Tha  histograa  Is  an  Illustration  of  tha  dansity* 
PRINT  "of  tha  rays  that  Intarcapt  tha  iaaga  plana  varsus  radial  " 
PRINT  *distanca  froa  tha  GLM  axis.* 

PRINT  LINC2) , *  Uhan  tha  position  has  baan  locatad,  PRESS  COHT.* 
PAUSE 

Digitixa*«"Y* 

CALL  Graph 

IF  PlotS«*P*  THEN  2460  I  P  FOR  HP-9072  PLOTTER 
Duap  crtSa'N* 

INPUT  "DO  YOU  HANT  A  HARD  COPY  OF  THE  PLOT  ?  Y'N",Duap  ertf 
IF  CDuap  ert*«"Y*>  OR  (Duap  crt*»*y*>  THEN  GOSUD  Printar 
OISP  -WORMN'  on  the  histogram...* 

CALL  Dansity  •  PRODUSE  A  HISTOGRAM  OF  THE  RAY  DENSITY 

IF  PlotSa-P*  THEN  2920 
Digit! zato-N*  •  RESET  CONDITION 
Duap  crtSa'N* 

INPUT  *00  YOU  MANT  A  HARO  COPY  OF  HISTOGRAM  *  Y/N* , Duap_cr t S 
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2910  IF  (Duap  crt*-“Y“)  OR  <0uap  ert*«“y“>  THEM  GOSUB  PnnUr 

2920  Y*«“N* 

2930  INPUT  “DO  YOU  WANT  TO  REDRAW  THE  HISTOGRAM  FOR  A  DIFFERENT  IMAGE  P 

LANE  ?  Y^N-.Y* 

2940  IF  <Y»-“Y">  OR  <Y0-“y“)  THEN  23-90 

2990  IF  <Y*-“Y“>  OR  <Y*-“y“)  THEN  Graph 

2960  Digitt  z*»«“N“  I  RESET  CONDITION 

2970  Rarun:  PRINTER  IS  16 
2900  Y*-“N* 

2990  INPUT  “ARE  YOU  GOING  TO  MAKE  ANY  MORE  RUNS?  Y/N",Y* 

2600  IF  < Y$-“N“ )  OR  <Y*-“n“)  THEN  Flmahad 

2610  Changa*>“M* 

2620  INPUT  “ARE  YOU  GOING  TO  CHANGE  ANY  PARAMETERS  <n2, n3, Al pha, Nr ay ,  OR 

RHO- INITIAL)?  Y/H* , Change* 

2630  IF  (Changt«-“N“)  OR  <Changa*«‘n“ >  THEN  Gyanaatica 

2640  GOSUB  Pr intar 

2690  PRINT  “  IF  you  do  NOT  want  to  Chang*  a  particular  paraaatar* 

2660  PRINT  “PRESS  CONT  in  raapoaa  to  tha  proapt." 

2670  INPUT  “UHAT  IS  THE  NEU  VALUE  OF  RHO-IN1TIAL  ?“ , Rho_l ni t i  a) 

2680  Rho_ini t i al — l»ABS<Rho_i ni t i a) >  ~ 

2690  Trhoi«TAN<Rho  initial)” 

2700  INPUT  “UHAT  IS  THE  NEU  VALUE  OF  ALPHA?* , Al pha 

2710  Talph*«TAN< Alpha) 

2720  INPUT  “UHAT  IS  THE  NEU  VALUE  OF  Y  BULLET  ?“,Y  bullat 

2730  INPUT  “UHAT  IS  THE  NEU  VALUE  OF  Ya  ?“,Ya 

2740  INPUT  “UHAT  IS  THE  NEU  VALUE  OF  Yb  ?”,Yb 

2790  Add  ray-0  I  RESET  CONDITION 

2760  I?  Ya>-Yb  THEN  BEEP 

2770  IF  Ya>-Yb  THEN  DISP  “Ya  MUST  BE  <  Yb.  PLEASE  RE-ENTER  Ya  AND  Yb. 

• 


2700  IF  Ya>-Yb  THEN  WAIT  2900 

2790  IF  Ya>«Yb  THEN  2730 

2000  IF  Yb>Y  bullat  THEN  BEEP 

2010  IF  Yb>Y”bullat  THEN  DISP  “Yb  MUST  BE  <  Y  bullat.  PLEASE  RE-ENT 

ER.  *  ”  ”  ” 

2020  IF  Yb>Y  bullat  THEN  UAIT  2900 

2030  IF  Yb>Y~bul I  at  THEN  2720 

2040  Apartura-Yb-Ya 

2090  IF  Ya<  >0  THEN  Add  ray-1 

2060  INPUT  “UHAT  IS  THE  NEU  VALUE  OF  n2?“,N2 

2070  INPUT  “UHAT  IS  THE  NEU  VALUE  OF  n3?“,N3 

2000  INPUT  “UHAT  IS  THE  NEU  VALUE  OF  23  ?“,Z3 

2090  INPUT  “UHAT  IS  THE  NEU  VALUE  OF  THE  No.  OF  RAYS?” , Nr ay 

2900  INPUT  “UHAT  IS  THE  NEU  No.  OF  INCREMENTS  <1000  MAX  )  ?*,N  incraaant 

2910  Changa«-'Y* 

2920  GOTO  Gyanaatics 
2930  Graph  grin:  J-l 


2940 

2990 

2960 

2970 

2900 

2990 

3000 

NT  ?  YrN* , VS 

3010 
3020 
3030 
3040 
3090 
3060 
3070 
3080 
3090 
3100 
3110  ■ 

3120 


FOR  I-t  TO  Nr ay 

R<I>-80R<X<J>n2+Y<J>“>2) 

C<I)-N<I)*R<I)*SIN<Phi<I>> 

J-J-9 
NEXT  I 
Y8-“N* 

INPUT  “DO  YOU  UAHT  TO  PRINT  A  TABLE  OF  GRIN  AND  THE  GRIN  CONSTA 

IP  <Y»-“N“>  OR  <Y*-“n“)  THEN  3190 
Y  hardS-“N* 

IlfPUT  “DO  YOU  WANT  A  HARD  COPY  OF  THE  TABLE  ?  Y^N“,Y  hard* 

GO0UB  Yhard 
GOSUB  Naadar  c 
FOR  I-l  TO  Nr ay 

IF  Linacount >Linaaax  THEN  GOSUB  Haadar  c 
PRINT  USING  3090!l,N<I),R<I),Phi<I>,SIN<Fhi<I>>,C<I) 

IMAGE  SX.RD.SCSX.RO.RD) 

L I nac  ount -L  <  nac  ount  *  1 
NEXT  I 

C08UB  Haadar  and 
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3139 

3149 

3199 

3169 

3179 

3189 

3199 

3299 

.Y* 

3219 

3229 

3239 

3248 

3299 

3269 

net 

3279 

3289 

3299 

3389 

3310 

3329 

3338 

3349 

3399 

3369 

3379 

3399 

3399 

3499 

3419 

3429 

3439 

,  OR 

3449 

3499 

3469 

3479 

3499 

3499 

3999 

3919 

3929 

3939 

3949 

3999 

3969 

3979 

3999 

3999 


GOSUB  Yhard  «nd 
Y*»“N" 

INRUT  “BO  YOU  HUNT  TO  PLOT  THE  RESULTS  OF  THE  TRACE  7  Y/N",Y* 

IF  <Y*»"N">  OR  <Y*«"n“>  THEN  Grine 
INPUT  “ON  WHICH  DEVICE!  CRT  <C>  OR  THE  9872  <P>  7  C/P  “.Plot* 

CALL  Graph 
Y*«"N" 

INPUT  “BO  YOU  WANT  ANOTHER  PLOT  BRAUN  TO  A  DIFFERENT  SCALE  7  Y/N" 

IF  <Y#*“Y“>  OR  <Y*-"y">  THEN  CALL  Graph 
Dupp  crt*»“N* 

INPUT  “BO  YOU  WANT  A  HARD  COPY  OF  THE  PLOT  7  Y.'W.Dupp  ert* 

IF  <Du»p_cr t*»*Y">  OR  (Dupp^ert *»“y* >  THEN  GOSUB  Printer 
Grine!  Grine*«“N"  ~  * 

INPUT  “BO  YOU  WANT  A  GRAPH  OF  THE  GRIN  CONSTANT  C<r>  ua  r  ?  Y/N-.Cri 


Grine  1 : 


*>  THEN  Rerun  grin 
OR  THE  9872  ?P>  ?  C'P 


'.Plot* 


Rerun_grin: 


3619 

3629 

3639 

3649 

3699 

3669 

3679 

3699 

3699 

3799 

3719 

3729 

3739 

3749 

3799 

3769 


IF  <Crln«*»“N*>  OR  <Grlne*" 

INPUT  “ON  WHICH  DEVICE!  CRT  <C> 

Grine *«*Y* 

CALL  Graph 

Grine *«“N"  !  RESET  CONBtTION 

Dupp  ert*«“N* 

INPUT  “DO  YOU  WANT  A  HARO  COPY  OF  THE  PLOT  ?  YxN“,Dupp  ert* 

IF  <Dupp  ert*«"Y")  OR  <Bupp  ert*«"y">  THEN  GOSUB  Printer 
Y*-"N" 

INPUT  “BO  YOU  WANT  ANOTHER  PLOT  BRAUN  ?  Yz-N-.Y* 

IF  <Y**"Y">  OR  <Y*«*y“>  THEN  Grlnel 
Y*»“N“ 

G*»“ Y*  !  INSURANCE 

INPUT  “ARE  YOU  GOING  TO  HAKE  ANOTHER  RUN  7  Y-'N’.Y* 

IF  <YP-*N"!  OR  <Y*«“n“)  THEN  Flnlahed 
Change*-"N" 

INPUT  “ARE  YOU  GOING  TO  CHANGE  ANY  PARAMETERS  <n2,  n3,  Al  pha.  Nray 
RHO- INITIAL >7  Y^N", Change* 

IF  <Change*a“N")  OR  <Change*»"n">  THEN  Gypnpstlcs 
GOSUB  Printer 

PRINT  *  IP  you  do  NOT  want  to  chpngp  a  particular  parameter* 
PRINT  "PRESS  CONT  in  respose  to  the  proapt . * 

Add  ray-0  !  RESET  CONDITION 

INPUT  “WHAT  IS  THE  NEW  VALUE  OF  RHO- INITIAL  7* , Rho_l nl t 1 al 
Rho_inl t i al »-l#ABS<Rho_lnl 1 1  al  >  ~ 

Trhot -TANCRho  Initial!- 

INPUT  “WHAT  IS  THE  NEW  VALUE  OF  ALPHA?- , Al pha 
INPUT  “WHAT  IS  THE  NEW  VALUE  OF  Npin  ?*,Npln 
IF  <Gr 1 n»«"C* >  OR  <Grln*e"e"!  THEN  3979 
INPUT  “WHAT  is  THE  NEW  VALUE  OF  Naax  7", Hoax 

INPUT  “WHAT  IS  THE  NEW  VALUE  OF  R9  nax  ?*,R9  nax 

INPUT  “WHAT  IS  THE  NEW  VALUE  OF  n3?*,N3 

INPUT  “WHAT  IS  THE  NEW  VALUE  OF  THE  No.  OF  RAYS?*, Nr ay 
INPUT  "WHAT  IS  THE  NEW  VALUE  OF  Ya  ?*,Ya 

INPUT  "WHAT  IS  THE  NEW  VALUE  OF  Yb  ?*,Yb 

IF  Ya>«Yb  THEN  BEEP 

IF  Ya>-Yb  THEN  DISP  "Ya  MUST  BE  <  Yb.  PLEASE  ENTER  AGAIN* 

IF  Ya>»Yb  THEN  WAIT  2999 
IF  Ya>eYb  THEN  3999 
Apertur*eYb-Ya 

IF  Ya<  >9  then  Add  rayeAdd  ray»t 
Change*e*Y" 

GOSUB  Printer 

Chang*S-"N‘  !  RESET  CONDITION 

GOTO  Gypnaat t  c  a 

Printer:  IF  <Change*-"Y" !  OR  <Chang*M"y" )  THEN  Y  hard*-"N" 

IF  <Duap  ert*p"Y")  OR  (Buap  ert*«’y"!  ThIn  Y  nard*»"Y" 

IF  <T  hard*»"Y*>  OR  <Y  hardie’y"!  THEN  PRINTfp  IS  0 
IF  <Y“hard*-"Y"!  OR  <Y"hard*«“y" )  THEN  PRINT  CHR*<27>l*SI80T“ 

IF  <Dupp_ert*e"Y"!  OR  -Bupp_ert*e*y")  THEN  Crt 
GOSUB  Header^i ni t i al 
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3778  IF  <G*»-Y->  OR  <C*-‘y*>  THEN  Grinl 

3788  FIXES  8 

3738  IF  Li nkcount >Li n««*x  THEN  GOSUB  Hkkdkr  ini  tiki 

3888  IF  Sktk*-*  *  THEN  3838 

3818  PRINT  "Curuk  No!  " ; Curuk, TAB<48>  5 *Dkt  kl  "JDktk* 

3828  GOTO  3848 

3838  PRINT  “Curuk  No:  “5 Curuk 

3848  Linkcount-Llnkcount*l 

3398  Grim:  FIXES  2 

3868  IF  Li  ntcount  >L  i  ntkkx  THEN  GOSUB  Hkkdkr  mitikl 

3878  PRINT  LIN< I) , “RHO< INIT IRL)  »  “ i Rho_i ni t i  kl ; "degrees H ; TAB<  48) 5 " A1 ph 

k  *  *; R1 phki “d€gr*«»"  ~ 


3888 

3898 

3988 

3918 

3928 

3938 

3948 

3998 

3968 

3978 

3988 

3998 

4888 

4818 

4828 

4838 

4848 

4898 

4868 

4878 

4888 

4898 

4188 

4118 

4128 

4138 

4148 

4198 

4168 

4178 

4188 

4198 

4288  Gri n2: 

4218 

4228 

4238  Grtn3: 

4248 

4298 

B<48>; *Yb  > 

4268 

4278 

4288 

4298 

4388 

4318 

4328  Cr  i  rv4 : 

4338 

4348 

4398 

4368 

4378 

4388 

4398 

4488  GrtnS: 
4418 


L 1 n«c  ount  »L i n*c oun t ♦ 1 

IF  Linkcount >Link«kx  THEN  GOSUB  Hkkdkr  mitikl 
PRINT  -TANCRHO-INITIAL)  ■  * ; Trhoi ; TAB<  48~; “Tkn(Rlphk)  •  ‘jTklphk 
Li nkcount -L i ntcount ♦ i 
FIXES  9 

IF  <GS-“N-)  OR  <G*«“n“>  THEN  Grin2 
IF  Linkcount >Li nkkkx  THEN  GOSUB  Htkdtr  mitikl 
PRINT  LIN< 1 ) , *nl  ■  “;NliTRBC48)J“n3  ■  * ; N3 
IF  <Grtn*«”C*>  OR  <Grin*--e“>  THEN  4818 
IF  Linkcount >Li nkkkx  THEN  GOSUB  Hkkdkr  mitikl 
PRINT  LIN<l),-N«in  •  * ; Nai n J TAB< 48> 5 "Nomx  •  "jN.kx 
L t nkc ount -LinkC ount ♦! 

GOTO  4848 

IF  Linkcount >Li nkkkx  THEN  G08UB  Hkkdkr  initikl 
PRINT  LIN< 1 ), "Nai n  ■  -;Nkin 
L  i  nkC  ount  «L  mkc  ount  ♦  1 

IF  Linkcount >Linkkkx  THEN  GOSUB  Hkkdkr  initikl 
PRINT 

L i nkc  ount  «L i nkc  ount  *  1 
FOR  1-1  TO  Nrky  STEP  3 

IF  LinkcounOLinkkkx  THEN  GOSUB  Hkkdkr  initikl 
IF  I>»298  THEN  PRINT  USING  414851, N<I>~ 

IF  l >-298  THEM  4128 

PRINT  USING  4138;i,N<I),t*l,N<l*l>,I*2,N<I*2) 

L i nkc  ount -L i nkc  ount  *  l 

INRGE  3<9X,-n2<*3B-)  -  ".2B. SB) 

IMAGE  SX, "n2<  *3B" )  -  -,28.98 
NEXT  I 

IF  Linkcount >Linkkkx  THEN  GOSUB  Hkkdkr  initikl 
PRINT  LIN< 1 ) , -R8_»kx  »  " ; R8_kkx; ■  inehk»T 
L I  recount -L i  recount ♦ 1 
GOTO  Grin3 

IF  L i nkc ount >Lt nkkkx  THEN  GOSUB  Hkkdkr  initikl 
PRINT  LIN<l),"nl  ■  HI j  TAB<24> ; “n2  ■  • ; N2; TRB<48) ; “n3  -  “;N3 
L  t  nkc ount  »L i nkc  ount  * l 
FIXES  3 

IF  Linkcount  >Li  nkkkx  THEN  GOSUB  Hkkdkr  initikl 
PRINT  LIN< 1 >, -Rpkrturk  -  "} Apkrt urk; TRB< 24) ; " Yk  »  "JYk;*  inch  ”;TR 
5YbJ*  inch  " 

IF  <G#»‘Y-)  OR  <G«k-y->  THEN  Grin4 
Linkcount -Linkcount*! 

FIXES  2 

IF  Linkcount >Linkkkx  THEN  GOSUB  Hkkdkr  initikl 
PRINT  LIN< 1 ) , *23  «  - ; 23; * t nehk»* J TAB<48> 7”Z4  »  “ ; 24 ; “  inchkk" 
Linkcount -Linkcount*! 

FIXES  8 

IF  LintcounOLi  nkkkx  THEN  GOSUB  Hkkdkr  initikl 
PRINT  LIN< 1 ) , -Nukbkr  of  Rkyk  »  ";Nrky  ~ 

Llnkcount-Ltnkcount *1 

IF  <GB-“  Y" )  OR  <G8»-y">  THEN  Grin9 
IF  Linkcount >Li nkkkx  THEN  GOSUB  Hkkdkr_i ni t i kl 
PRINT  LIN< 1 > , -Nukbkr  of  Incrookntk  -  * ; N~i ncrkkknt 
Ltnocount -Linkcount *1 
FIXES  2 

IF  Li nkcount >Li nkkkx  THEN  GOSUB  Hkkdkr_i ni t ( kl 
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PRINT 

L  t  nac  oun t  »L  1  nac  ount  ♦  1 
GOSUB  Haadar  and 

Crt:  IP  CDuap_crt#«“Y">  OR  <Duap_crt#*“y“>  THEN  DUNP  GRAPHICS 

IP  CY  hard#*“Y“>  OR  < Y  hardi*"y“>  THEN  PRINT  CHR*C2?>«,"41 36T" 
Changa#»‘N"  >  RESET  CONDITION 

Duap  ert#*“N" 

Y  hard#»"N" 

RETURN 

Yhard:  IF  <Y  hard#*“Y")  OR  <Y  hard#*"y“)  THEN  F1ag#*“l“ 

IF  CY~hard#*“N“>  OR  CY_hard#*"n" >  THEN  Flag#*“0“ 

IF  C Y— hard#*" Y" )  OR  < Y_hard#*"y" >  THEN  PRINTER  IS  8 
IF  Ftag#*“l“  THEN  PRINT  CHR*<2F)4" t t 00T' 

RETURN 

Yhard  and:  IF  <Ftag#*“!“>  OR  <Flag#*“0“>  THEN  PRINT  CHR#C2?)t"41  36T” 

IF  <Ft  ag#»“ 1 “ )  OR  CFlag#«‘0“>  THEN  PRINTER  IS  16 
RETURN 

Haadar_coaf :  IF  Li  nacount >Li naaax  THEN  GOSUB  Haadar_coaf_and 

Li nac ount *0  ~ 

PRINT  page;lincs> 

GOSUB  Char  short 

PRINT  LIN<l>7SPfl<«>; "COEFFICIENTS" ;LINC1> 

GOSUB  Char  short 
PRINT  LINC2)- 
RETURN 

Haadar_c oaf _and:  PRINT  LINC2) 

”  GOSUB  Char  short 

RETURN 

Haadar_c:  IF  Li nacount >Li naaax  THEN  GOSUB  Haadar_and 

Linacount *8  ~ 

PRINT  PRGE;LIN<3) 

GOSUB  Char 

PRINT  LIN< 1  "  I  n<I>  r  C  I  >  PhiCI) 

SinCPhi)  eCI)";LINCl) 

DISP  •  l  n<  I )  r  c  I  >  Ph i  <  I  > 

SinCPhi)  c  < I ) " 

GOSUB  Char 
PRINT  LINC2) 

RETURN 

Haadar  c  and:  GOSUB  Haadar  and 

RETURN 

Haadar_ini 1 1  at  *  IF  Li nacount >Li naaax  THEN  GOSUB  Haadar_and 
Linaeount*0  “ 

PRINT  PAGE; LINC 5) , TRB<28);"INITIRL  PRRRMETER  VALUES” ! L INCl > 
GOSUB  Char 
PRINT  LINC2) 

RETURN 

Char  short:  Char  aax*2S 

FOR  ?«8  TO  Char  aax 

IF  2*Char  aax  THEN  PRINT  CHR#<228> 

IF  Z*Char” aax  THEN  4920 
PRINT  CHRSC228); 

NEXT  2 
RETURN 

Haadar:  IF  L inac ount >Lt naaax  THEN  GOSUB  Haadar_and 

Linacount*0  ” 

PRINT  PAGE i L I N < 9 > 

GOSUB  Char 

PRINT  LIMC I > , *  <X0,Y0)  CXl.Yl)  CX2,Y2>  <Xe,Ye> 

CX3, Y3>  RHO" I LIHC  t ) 

GOSUB  Char 
PRINT  LIHC2) 

DISP  "  CX0.Y8)  CXI, Y1 )  CX2.Y2)  CXc,Yc) 

CX3, Y3)  RHO" 


CX3.Y3) 

RETURN 
Haadar_gr in: 


IF  Linacount >Lt naaax  THEN  GOSUB  Haadar  and 


1  o 


-■.'’t'-VviJ 


3939 

3969 

PRINT  PAGE,L1N<3> 
GOSUB  Char 

3979 

(Xc , Ye  > 

N2 

PRINT  L!N( 1 > , " 

RHO" I L IN< 1 > 

<X8, Y8> 

<Xt, Yl> 

<X3, Y3> 

3989 

<Xc , Ye ) 

N2 

OISP  " 

RHO" 

<X8, Y8> 

CXI, Yl> 

<X3, Y3> 

3*9*  GOSUB  Char 

3199  PRINT  LINC2) 

3119  RETURN 

3129  Header  end!  PRINT  LINC2) 

3139  ~  GOSUB  Char 

3149  RETURN 

3139  Char:  POR  Zz*9  TO  79 

3169  IP  Zz«79  THEN  PRINT  CHRS<228> 

3179  IF  2z»79  THEN  3199 

3199  PRINT  CHR*<229>; 

3199  NEXT  Zz 

3299  I  PRINT  RPT*<"»“,S8>  !  THIS  IS  ft  LOT  FASTER,  BUT  NOT  AS  PRETTY 

3219  RETURN 

3229  FinUHtd:  DISP  "FINISHES’ 

3239  END 

3249  SUB  SlopeCY) 

3239  OPTION  BASE  9 
3269  ! 

3279  COM  INTEGER  I ,  J,  Curve,  Np,  Nn, N, N», Nr , REAL  Aneg<*> ,  Apo*<*» ,  A<  »> ,  21 , 23, 24 
3289  CON  Alpha,  Talpha, Rho, Trho, Rho_i ni  t  i  al , Trho i , Phi , Tol , Nora, Alpha2 
3299  eon  Nl , N2, N3, Percent  i aage, Ya7vb, Apart urt, Y  bullet 
3399  I 

3318  COn  INTEGER  Y8  1 oop, Nr ay, Add  ray, Surf  no, FI ag, P 1 ag2, N  increment , Hi t  total 
3329  I  “ 

3339  SEC 

3348  IF  Surf_no«2  THEN  Tuo 
3339  One:  Alpha2»Alpha 
3369  Nora«A 1 pha2-99 

3379  SUBEXIT 

3399  Two:  IF  Y<9  THEN  Negative 

3398  Poaitive!  Tan  a2>9  !  SLOPE  URT  Y-AXIS  Cdx/d yl 

3499  FOR  I«t  TO  Np 

3419  Tan  a2«Tan  *2* I »Apos < I > *Y—  < I  —  1 ) 

3428  NEXT  T 

3439  N2-ABSCATN<Tan  m2))  !  THE  ANGLE  IS  POSITIVE  CU  URT  Y-AXIS 

3448  Alpha2«98-H2  I  THE  ANGLE  IS  POSITIVE  CCU  URT  X-AXIS 

3439  Nora>A1pha2-99 

3469  SUBEXIT 

3479  Negative:  Tan  a2*9 

3488  FOR'l"!  TO  Hn 

3498  Tan  a2aTan  a2* t*An*g< I )*Y-< 1-1 ) 

3398  NEXT  T 

3318  N2-ABS<ATN<Tan  a2>> 

3328  Atpha2«99-H2 

3338  Tnora*-lxTAH<Alpha2) 

3348  HoraaATNI Tnora  >-189 

3338  SUIENB 

3398  SUB  Snail <X,Y> 

3378  OPTION  BASE  9 
3388  I 

3398  CON  INTEGER  I , J, Curve, Np, Nn, N, N», Nr , REAL  AnegC *> , Apo»< *> , A< *> , 21 , 23, 24 
3688  COn  Al pha.Talpha, Rho, Trho,  Rhc_i nl  1 1  al ,  Trho 1 , Phi , Tol ,Nora,Alpha2 
3918  CON  Nl , N2, H3, Par cant  i aaga, YaTYb, Aparturt , Y  but  tat 
3928  t 

3938  COH  INTEGER  Y8_l oop, Nray, Add_ray, Surf  no, FI ag, FI ag2, N  i ncraaant , Hi t  total 
3948  COH  INTEGER  L • nacount , Li naaax  ~  “ 

3938  CON  INTEGER  Pselect.Hpib 

3998  I 

3978  CON  REAL  Nmt n, Nmax, R9_max 

3989  -COH  Rav_traee  *,  Digit  i ze t,Gr i nS, Cf, Grinc*, PI ott, Dates 

3999  COH  X<*),Y<*),Xc<*),NC*>,ft<*) 
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V.  ,  V 


3788 

37ie 

9720 

9738 

9748 

9798 

9788 

9778 

9788 

9798 

9888 

9818 

9828 

9838 

9848 

9898 

ho> 

9888 

9878 

9888 

9898 

9988 

9918 

9928 

9938 

9948 

9998 

9988 

9978 

9988 

9998 

8888 

8818 

8828 

8838 

8848 

8898 

8888 

8878 

6888 

6898 

6188 

6118 

6128 

6138 

6148 

6198 

6168 

6178 

6188 

6198 

6288 

6218 

6228 

6238 

6248 

6298 

6268 

6278 

6288 

6298 

6388 

6318 

6328 

6338 

6348 


I 

DEC 

IF  Surf_no>2  THEN  Two 
On*:  Nnl»Nl 
Nn2»N2 

That  at >98-< At  pha*ABS<Rho) > 

CALL  SlopalY) 

IF  Th*tai<8  THEN  Nag 
GOTO  San* 

N*g_t  hiui:  F 1 ag»3 

That ai »RBS< That ai > 

Sip>Nl/N2*Sin<Th*tai > 

IF  A8S<Sip)>l  THEN  Wrong 
Th*tar*ASN<Sip) 

Rho>Nor«-Th*t  ar 

IF  <ABS<Rho)<39. 99999)  OR  (ABSCRho) >98. 00081 >  THEN  Trho»TAN<R 

IF  <ABS<Rho>>89. 99999)  AND  <ABS<Rho><*90)  THEN  Trho*-9999999 
IF  <ABS<Rho) >98)  AND  <ABS<Rho)<90. 00001 )  THEN  Trho«9999999 
SUBEXIT 
Two:  Nnl«N2 
Nn2*N3 

IF  Y<8  THEN  Nagat i w* 

CALL  Stop*<Y) 

That  at >90-ABS(Rho ) ~A1 pha2 

IF  Th*tai<0  THEN  Nag  th*tat2 
Sua:  IF  <G»«*Y")  OR  <G*»"y")  THEN  GOSUB  Grin 

Stn_tprin*«Nnl'Nn2»SIN<Th*tat ) 

IF  ABS<Si n_i pr i ■•) >1  THEN  Wrong 
Th*tar>ASN<s7n  ipriaa) 

Rho-Alpha2*Th*tar-90  !  USE  ALPHR2  INSTEAD  OF  NORN  BECAUSE  THE 

!  SIGN  OF  THE  ANGLE  IS  DESIRED 

Trho>TAN<Rho) 

Phi «AI pha-Rho  !  USED  FOR  GRIN 

SUBEXIT 

Nag  th*tai2:  That at >ABS< That ai ) 

S t p>Nn 1 'NnBaSINC That ai  ) 

IF  Ab»<Stp))l  THEN  Wrong 
Thatar«ASN<Sip> 

Rho>Nor»-Th*tar 

IF  ABS(Rho) >“98  THEN  Skip  !  THE  RAY  WILL  NOT  INTERCEPT 

I  THE  IN  AGE  PLANE 

IF  ABS(Rho)< 89. 99999  THEN  Trho-TAN(Rho) 

IF  <ABS<Rho>  >89. 99999)  AND  < A8SCRho><90>  THEN  Trho—9999999 
SUBEXIT 
Skip;  Flag* 1 3 

IF  AB8 < Rho ) >*98 , 88888 1  THEN  Trho>TAN<Rho) 

IF  AB8<Rho)<98. 088881  THEN  Trho-9999999 
Rhop> 1 88- ABS  <  Rho ) 

Trhop«TAH<Rhop ) 

Xc  < Y8  I oop > >X-YxTrhop 
SUBSXIT 

Wrong:  Ftag*18  1  TOTAL  INTERNAL  REFLECTION  AT  THE  SECOND  SURFACE 
SUBEXIT 

Nagat tua:  CALL  SI  opal Y> 

That  at  >98* ABS  <  Rho ) -A I pha2 
Slp>Nnl^Hn2*SIN<Thatai > 

IF  ABS<Stp>  >1  THEN  Wrong 
That  ar >ASN (Sip) 

Rho>Nor o-That ar 
Trho>TAN<Rho) 

SUBSXIT 
Grin:  N2>0 

IF  <Grin»a-P“>  OR  <Gr t n**"p* >  THEN  P 
C:  CALL  InOax  c<X,Y) 

N<  Y8  loop)>N? 
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099 

oca 

07® 

089 

099 

6490 

8419 

6429 

6439 

6449 

6499 

6469 

6479 

6489 

6498 

6989 

6918 

6929 

6938 
6949 
6999 
6969 
6979 
6989 
6999 
6699 
6619 
6629 
6639 
6649 
ul  let 
6699 
6669 
6679 
6689 
6699 
6799 
6719 
6729 
6739 
6749 
6799 
6769 
6778 
6799 
6798 
6899 
6819 
6829 

6939 
6848 
6999 
6969 
6979 
6899 
€899 
6999 
6918 
6928 
6939 
6949 
6999 
6969 
6979 
6999 
6999 
7999 


1 


IF  Surf_no«l  THEM  Nn2»N2 
IF  Surf""no«2  THEN  Nnl»N2 
RETURN 

P:  CALL  Index  p<X,Y )• 

N< Y0  loop)«N2 

IF- Surf  no»l  THEN  Nn2»N2 
IF  Surf ~no«2  THEN  Nnl«N2 
RETURN 

SUBEND 

SUB  Binary  »#arch<X,Y) 

OPTION  BASE  9 

I 

CON  INTEGER  I, J, Curve, Np,Nn,N,N», Nr, REAL  Anegt * ) , Apos ( * ) , A< * ) , 21 , 23, 24 
COM  Alpha, Tal pha,Rho, Trho, Rho_tni t i al , Trhoi , Phi , To  I , Nora, A1 pha2 
COM  N1 ,N2, N3, Pereent_i aage,  Ya, Yb, Apert ure , Y_bu 1  I et 

t  "  ~ 

COM  INTEGER  Y9_1 oop, Nr ay , Add_ray , Surf_no, F 1 ag, F 1 ag2, N_i ncreaent , Hi t_t ot al 
COM  INTEGER  L i recount , Li neaax 
CON  INTEGER  Pielect.Hpib 

! 

COM  REAL  Nain,Naax,R8_max 

COM  Ray  traces, Di gi t ise*, Cri n*, GS, Gri net, PI ot*, Date* 

COM  X<*7,Y<*),Xc<*),N<»>,R<*> 

I 

COH  Rho<«),Phi <»>,C<»>,Y3<»),Hit<*> 

I 

DEG 

DEF  FNA<X, Y)«X-YxTrho 
DEF  FNAi <X, Y)«X-YxTaIpha 

DEF  FNXn<A)-A-Y  bulletxTrho  t  FINDS  THE  INTERCEPT  OF  THE  RAY  AND  Y«-Y  b 


R-l 

IF  Surf  no»l  THEN  One 
IF  Surf“no«2  THEN  Two 
IF  Surf~no«3  THEN  Three 
Four:  Dy«<24-X)*Trho 
Y-Y+Dy 
X-Z4 
SUBEXIT 

Three!  IF  <Y>8>  AND  <Trho>9>  THEN  Skip  (THE  RAY  HILL  NOT  CROSS  THE  X-AXIS 
Xc<Y9  1 oop ) ■FNAC  X, Y  ) 

Back:  Dy«<Z3-X)*Trho 
Y«Y*Dy 
X-Z3 
SUBEXIT 

One:  CALL  xtpoatx, Y) 

SUBEXIT 

Too:  A«FNA<X,Y) 

IF  Flag>9  THEN  Search2  I  Theta  I  <  9  FROM  SNELL 

Ftag-9 

Flag2«8 

IF  <G*a*Y")  OR  <G*a*y")  THEN  Grin 

IF  A<Z1  THEN  Negative  I  THIS  IS  A  SEPARATE  AND  UNRELATED  TEST 

GOTO  Positive  I  FROM  THAT  PERFORMED  IN  SEARCH  2 

SearchZ:  •  THIS  ROUTINE  IS  ENTERED  WHEN  THE  ANGLE  OF  INCIDENCE  ON  THE 

•  FIRST  SURFACE  IS  <  9  DEGREES. 

•  THIS  MEANS  Thetal  HAS  DECREASED  FROM  ITS  AXIAL  VALUE  TO  9 

!  <ie.  NORMAL  TO  THE  FIRST  SURFACE)  THEN  CONTINUED  TO  ROTATE  PAST 
I  THE  NORMAL.  THI3  CORRESPONDS  TO  A  TARGET  AT  OR  NEAR  CLOSEST 
?  POINT  OF  APPROACH  <CPA>. 

I  HHEN  THIS  HAPPENS  RHO(l>  CAN  BE  LARGE  ENOUGH  TO  CAUSE  THE  RAY 
!  TO  MISS  THE  FIRST  AND  SECOND  SURFACE. 

!  THE  ROUTINE  FIRST  CHECKS  TO  SEE  IF  THE  RAY  CROSSES  THE  SECOND 

•  SURFACE.  IF  SO,  CONTROL  SHITCHES  TO  FASTER  BISECTION  ROUTINE. 

!  IF  NOT  THEN  THE  ROUTINE  MARCHES  SLOULY  DOWN  THE  RAY  TO  FIND  THE 
i  INTERCEPT  < IF  ANY). 
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IF  A>Z1  THEN  Posit 4 v* 


Delta-. 91 

X12-X 

YJ2-Y 

>  EVEN  THOUGH  THE  X-INTERCEPT  APPEARS  TO  BE  <  21,  THE  SECOND  SURFACE 
•  COULD  BE  IRREGULAR  ENOUGH  TO  CAUSE  THIS  SIMPLE  CHECK  TO  BE  DECEIVING. 

I  THE  RAY  IS  ASSUMED  TO  HAVE  INTERCEPTED  THE  SECOND  SURFACE  IF  THE 
!  DIFFERENCE  BETWEEN  THE  RAY  POSITION  AND  THE  SECOND  SURFACE  <  TOLERANCE 
March:  D* I t ax-De 1 t a«COS<Rho> 

Do  I tay-Del t a«SIN<Rho> 

XU-X12+0e1tax 

YI2-YI2+Dettay 

IF  Y12<9  THEN  Missed  !  YOU  HAVE  REACHED  THE  X-AXIS 

X2-9 

CALL  X2pos<X2,Y12) 

Xsave«Xl2-X2 

IF  ADS<XavcX«Tal  THEN  Donet  <  FOUND  THE  SURFACE  UITHIN  TOL 
IF  Xsave<9  THEN  March  I  KEEP  LOOKING 

IF  Xsave>9  THEN  Found  it  •  THE  RAY  CROSSED  X2P0S 

Donol:  X-<X2*XI 2>'2 
Y-YJ2 
SUBEXIT 

Hissed:  X-A  >  THE  RAY  HAS  MISSED  THE  POS  AND  NEC  SURFACES 

Y-9  I  DRAH  THE  RAY  TO  THE  X-AXIS 

GOTO  Blind 

Found  it:  Xaid«X12  I  THE  RAY  HAS  CROSSED  THE  SECOND  SURFACE.  GO  TO  T 


<  FOUND  THE  SURFACE  UITHIN  TOL 
I  KEEP  LOOKING 
•  THE  RAY  CROSSED  X2P0S 


Xlast-Xaid  !  BISECT 

Yai d«Y12 

Ylast-Yaid 

Xsave-9 

GOTO  Recurse_p 
Positive:  XI *9 

X2-9 

CALL  XlpostXl , Y> 

CALL  X2poM(X2,Y> 

IF  X2< “XI  THEN  Hoops 


I  THE  RAY  HAS  CROSSED  THE  SECOND  SURFACE. 
!  BISECTION  ROUTINE  FOR  SPEED 


GO  TO  THE 


Xatd-A  I  THE  RAY  HA! 

Xaid-A  !  THE  RAY  HA! 

Xlast-Xaid  <  SURFACE.  THEl 

Yaid-9 

Ylast-Yaid 

Xsave-9 

Recurse  p:  Xaid-<X+R«Xaid)'’<l+R> 
Yaid-<Y+R*Yai  dl'i  l+R) 

X2-9 

CALL  X2pos(X2,Yaid) 
X*ave-X2-Xaid 

IF  Xsave<9  THEN  First 
IF  Xsave>9  THEN  Second 
IF  Xsaue- 9  THEN  Done 
Recurse  n:  Xai d«<X+R*Xaid)X 1*R> 
YBid-<Y-R*Yoid>r<I*R> 

X2-9 

CALL  X2neo<X2,Yaid) 
Xsave«X2-Xatd 

IF  Xsave<9  THEN  First 
IF  Xs«ve>9  THEN  Second 
IF  Xsave-9  THEN  Done 
First:  IF  ABStXsaveXTol  THEN  Done 

Xlast-Xaid 
Ylast-Yaid 

IF  Flas-1  THEN  Recur se_n 
GOTO  Recurse_p 

Second:  IF  ABSiXsaveXTol  THEN  Done 

X-Xatd 
Y-Yaid 


THE  RAY  HAS  CROSSED  THE  X-AXIS  BEHIND  THE  SECOND 
THE  RAY  HAS  CROSSED  THE  X-AXIS  BEHIND  THE  SECOND 
SURFACE.  THEREFORE  Y>9  AT  THE  INTERCEPT 


INTERCEPT  IS  BEHIND  THE  MIDPOINT 
INTERCEPT  IS  AHEAD  OF  THE  MIDPOINT 
INTERCEPT  IS  THE  MIDPOINT 


I  INTERCEPT  IS  BEHIND  THE  MIDPOINT 
!  INTERCEPT  IS  AHEAD  OF  THE  MIDPOINT 
•  INTERCEPT  IS  THE  MIDPOINT 
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-uJm  i  v*e:  ^ 


Xatd*XI  a*t 
Yatd-Ylast 

IF  FUg-I  THEN  Rocur*o_ 
GOTO  Ro«urs«_p 
Nogativ*:  Xl»8  ~ 

X2*S 

Xc  <YS  1oop)-A 

CALL  Xln«g<Xl,Y> 

CALL  X2n«g(X2,Y> 

IF  X2<«X1  THEN  Hoops 


Flag»l 


THE  RAY  CROSSES  THE  X-AXIS  AHEAD  OF  THE  SECOND 


YU*-Y  bull «t  !  SURFACE  AND  COULD  POSSIBLY  INTERCEPT  X2NEG. 

X*A  I  THE  SANE  TYPE  OF  TESTS  DESCRIDEB  ABOVE 

•  IN  SEARCH  2  ARE  PERFORMED  HERE. 

Y*S 

Dolta*. PI 
Starch:  XU'FNXntA) 

X2*S 

CALL  X2nog<X2,  YU) 

IF  Xt  1  >X2  THEN  Ok  (  XU  >  X2aax 

XU«A 

Yll-S 

Dot t ay* Do  I ta*SIN<Rho> 

Do  1 1  ax*Do 1 1  a*COS  ( Rho ) 

Soarch_n:  IF  ADS<Y1 1 ) >*Y_bul lot  THEN  Htssod2  !  THE  SECOND  SURFACE  HAS  NI 

Xll*Xll+Dol tax 
YU-YU+Doltay 
X2*S 

CALL  X2nog<X2,Ytl) 

Xsavo*Xl I-X2 

IF  ADS<XsauoX*To1  THEN  Victory  !  FOUND  THE  SURFACE 
IF  Xsauo>*S  THEN  Ok  !  •  *  * 

IF  Xsawo<8  THEN  Soarch  n  !  KEEP  LOOKING 
H<ssod2:  X»FNXn< A)  !  DRAM  THE  RAY  UNTIL  Y»  -Y  bullot 
Y— Y  Du) lot 
GOTO  Blind 
Victory:  Flag2*t 

X»<XU*X2>'2 

Y»YU 

SUBEXIT 

Ok:  Ftag2*l  I  THE  INTERCEPT  OF  THE  RAY  AND  X2NEG  HAS  BEEN  FOUND. 

XalO-XU  !  GO  TO  THE  BISECTION  ROUTINE  FOR  SPEED. 

XlastaXaid 
Yaid-Ytl 
YlaataYatd 
GOTO  Rocurso  n 
Bono:  X»<X2+Xald7'2 
Y«Yald 
SUBEXIT 

Skip:  Xc<YS  loop)** 

GOTO  lack 

Blind:  IF  Flag*!  THEN  Blind  n 

Flag*2S  - 

X*A 
Y*# 

Xc(YS  1 oop>*A 
SUBEXIT 

Bltnd.n:  Flag*2S 

”  Xc<YS  loop>*A 
SUBEXIT- 

Hoops:  FIag«3S  I  THE  SECOND  SURFACE  HAS  BENT  AND  CROSSED  THE  FIRST 

X*X2  I  STOP  THE  RAY  TRACE 


Victory: 


I  THE  INTERCEPT  OF  THE  RAY  AND  X2NEG  HAS  BEEN  FOUND. 
•  GO  TO  THE  BISECTION  ROUTINE  FOR  SPEED. 


Hoops: 


X*X2  I  STOP  THE  RAY  TRACE 

Y*Y 

SUBEXIT 
Grin:  At »Z3 

Y*< A-Ai )•< Tal pha*Trho>^< Trho-Tal pHa)  I  INTERCEPT  OF  THO  LINES 
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r#  ***  a*-'*. 


X«AaY.'Trho 

Xe<Y0  loop>-A  I  REQUIRES  FOR  BRAN  INC  PURPOSES 
SUSENO 
SUS  Graph 

OPTION  BASE  0 

i 

CON  INTEGER  I ,  J, Curve , Np, Nn, N, N*,Nr , REAL  Anag< * > , Apo*<* > , A< *> , Z1 , 23, 24 
CON  Alpha, Tal pha,  Rho, Trho, Rho_i ni t  i  al ,  Trnoi ,  Phi , To  I , Nora, AlphaZ 
CON  Nl,N2,N3,Parctnt  iaaga, Ya7vt», Aptrturt, Y  bulltt 
I 

CON  INTECER  Y0_!oop, Nr ay , Add_ray, $urf_no, Flag,Flag2,N_tncraaant ,Ht  t_total 
CON  INTEGER  Li  recount ,Li ntaax  ’  ~ 

CON  INTEGER  P*alaet,Hpib 

I 

CON  REAL  Nain,Haax,RS_aax 

CON  Ray  tract*,  Btgi  t  ilt*,  Gri  nS,  G<,Grinct,  PI  ot»,  Data* 

CON  X<*7,Y<#),Xc<t>,N<*>,R<*> 

! 

CON  Rho <  a ) , Ph i <a),C<*),Y3<a),Hit<a> 

i 

BEG 

PRINTER  IS  16 

IF  <Grinc*-*Y">  OR  <Grine*«*y*>  THEN  Grtne 
IF  <01 gi 1 1  *#*■“ Y“ )  OR  <01  git  I zt***y*  >  THEN  Bigit 
Draw  axaa:  CALL  Plot 

F i r»7  surf:  FIXES  2 

LINE  TYPE  8 
Y»Y_bulltt 
HOVE  0,0 
X-YxTalpha 
BRAN  X, Y 
BRAN  100, Y 
HOVE  0,0 
ORAN  X, -Y 
BRAN  100, -Y 

IF  <G*-“ Y“ )  OR  <G*»*y*>  THEN  Grin  iaaga 
X2posl  HOVE  Apoa<0> , 0 

FOR  Y«0  TO  Y_bul 1  at  STEP  .01*Y_bulIat 
X2pos-0  “  ” 

FOR  1-0  TO  Np 

X2pos>X2pos*Apos< I >aY*l 
NEXT  I 

BRAN  X2po»,Y 
NEXT  Y 

X2nag:  HOVE  Apo*<0>,0 

FOR  Y*0  TO  -Y_bul lat  STEP  -.S1*Y  bull  at 
X2nag*0 

FOR  1-0  TO  Nn 

X2nag-X2nag+Anag< I ) aY*  I 
NEXT  I 

ORAM  X2n*g, Y 

W|WT  V 

EXIT  GRAPHICS 
Y***N* 

INPUT  *00  YOU  WANT  A  NARB  COPY  OF  THE  PLOT  HITHOUT  RAYS  ?  Y/N*,Y* 

IF  < Y*a“Y* )  OR  <Y»«*y">  THEN  GOSUI  Ouap  it 
GRAPHICS 

First  iaaga:  LINE  TYPE  S 

HOVE  23, Y  bull  at 
ORAM  23, -7_bul lat 
Sacond  iaaga:  LINE  TYPE-* 

HOVE  24, Y  but  tat 
BRAM  24,-7  but lat 

IF  <GM*H")  OR  <C*a*n*>  THEN  Ftr*t 
Grin_!aaga:  LINE  TYPE  ? 

Ya«-Y  bul lata. S*Y  bullat 


T— — ^ WMMi 

*- 


» 


c 


Ml* 

M2* 

M3* 

9*4* 

9*3* 


Xa-Z3*Y-/'Tel pha 
HO VC  Xa.Yo 

Ya»-Va 

XaaZ3+Ya/'T  alpha 
DRAW  Xa.Ya 


9060  REH  DRAW  THE  RAYS 
907*  F i rat  :  LINE  TYRE  1 


9000 
9*90 
910* 

9110 
9120 
913* 

9140 

9130  Second  : 

9160 
9179 
9100 
9190 
92*0 

921*  1 F  <G*-*Y*> 
922*  First  laage  p 
923* 

9240 

9230 

926* 

9270 
92*0 
92M 
93*0  Ok: 

9310 
9320 
9330 

934*  Reflect: 

9330 
93*0 
9370 
9300 
9390 
CRIES 
*4*0 


CLIR  0,109, -Y  bullet, Y  bullet 

I>0 

FOR  Ray  fl  rst-1  TO  Nray 
HOVE  X<I>,Y(I> 

ORAM  X<I*t>,Y<I*l> 

1-1*3 

NEXT  Ray  first 
I«1 

FOR  Ray  seeond-1  TO  Nray 
HOVE  X< l > , Y< I > 

ORAN  X<I*1),Y<I*1> 

I«l43 

NEXT  Ray  second 

OR  ?G*-*V“)  THEN  Halt 
1-2 
Nr— 1 

FOR  Ray  laage-1  TO  Nray 
Nr-Hr*3 
HOVE  X<I),Y<I> 

IF  X<1X>0  THEN  Ok 
1-1*3 

GOTO  Next  ray  i aage 

IF  X<I+I>-0~TNEH  Reflect 
ORAN  X(I*1),Y(I»1) 

1-1*3 

GOTO  Next  ray  I  aage 

IF  THE  ANSUERE  TO  THE  QUESTION  IS  NO,  THE  RAY  HAS  TOTALLY 
REFLECTED  AND  DO  NOT  DRAM  A  LINE 
IF  A  LINE  IS  DRAWN,  THEN  A»S<RHO>  >  90  DEGREES 

IF  <Xc<Ray  taage>-9>  OR  <Rho(Nr>-0>  THEN  9400 
Trho— 1*Y<  I  >~<Xc  <Ray  iaage>-X(I>> 

DRAW  X<I>-<Y<I>*Y  buTl et  >'Trho, -Y  bullet  !  RHO  >  90  DE 


1-1*3 

9410  Next  ray  I aage:  NEXT  Ray  iaage 
9420  Decision:  WAIT  2000 
943*  EXIT  GRAFHICS 

944*  MCA 

943*  Y*-*N* 

94M  INRUT  *00  YOU  WANT  TO  RLOT  TO  THE  SECOND  IMAGE  RLANE  ?  Y/N*,YS 

9470  GRARHICS 

94*0  IF  <Y*-*N*>  OR  <Y»-*n*5  THEN  Walt_ 

9490  Second_teage jtl  1-3  ~ 


9SM 

M10 

M2* 

M3* 


9830 

936* 

M70  0k2l 


MM 


Ml*  Ref  1ect2: 

9*20 

MM 

CRESS 


Nr— 1 

FOR  Ray  !aage2-l  To  Nray 
Hr-Nr*  3 
HOVE  XCD.YCIl 

IF  X<1><>*  THEN  Ok 2 
1-1*3 

GOTO  Next  ray  <aaoe2 

IF  X<t«l>-0  THEN  Ref  I ec  1 2 
DRAW  X<1*1>,Y<!*I> 

1-1*3 

GOTO  Next  ray  Iaa*e2 

IF  <Xe<Iay  7«ag*2>-*>  OR  <Rho<Nr>-*>  THEN  M40 
Trho— I#V<  I )s<Xc  <Ray  I aage2)-X< I > > 

DRAW  X<I>-<Y«I)*Y  bullet  >/Trho, -Y  bullet  I  RNO  >  9*  DC 


1-1*3 

M3*  Next_r ay_i  -age 2 1  NEXT  Ray_laage2 


o 
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H<t  GOTO  Wait 

9070  Crinc:  CALL  A lot 

9080  I  Rl*C<l>/<N<l)*SIN<Pht <1>)> 

9090  I  HOVE  R1,C( l) 

*70*  HOVE  R<1),C<1> 

9710  FOR  1 *2  TO  Nr ay 

9720  !  R-C<I>r(N«I>*$IN<Pht(I>>> 

9700  I  DRAW  R,C<I> 

9740  DRAU  R( I > ,C< I> 

9790  NEXT  I 

9700  Wait  :  I  SETGU  I  THIf  ROUTINE  PRESENTS  THE  PLOT  TO  THE 

9770  !  “  LINE  TYPE  t  !  OPERATOR  TO  STUDY  UNTIL  READY  TO  CONTINUE 

9700  I  LOIR  0 

9790  I  HOVE  2,2 

9000  I  CSIZE  2 

9010  I  LABEL  ’PRESS  CONT* 

9020  ■  CSIZE  19/4.94 

9030  SETUU 

9040  SEEP 

9090  WAIT  290 

9000  SEEP 

9070  PAUSE 

9090  EXIT  GRAPHICS 

9090  SUSEX1T 

9900  Digit:  GRAPHICS 

9910  POINTER  Z3,0 

9920  DIGITIZE  Z3,Y 

9930  LINE  TYPE  9 

9940  HOVE  Z3,Y  bull  at 

9990  DRAW  Z3.-V  built* 

9900  SETGU 

9970  LOIR  0 

9900  LINE  TYPE  1 

9990  LORG  9 

10000  CSIZE  2.9 

19010  C*nt*rx*72.9  I  CHANGE  IN  Laxaa  also 

10020  HOVE  1 . 9*C*nt*rx, 9 

10030  LABEL  USING  10040; Z3 

10940  IHAGE  ’ taag*  Plan*  :  * ,00. DD, *  Inch**’ 

10090  3ETUU 

10000  CSIZE  19/4.94 

10070  WAIT  2900 

10000  EXIT  GRAPHICS 

10090  SUBEXIT 

10100  Ouap  i t : PRINTER  IS  0 

10110  ~  PRINT  C HR* < 27)1*11 00T* 

10120  DU HP  GRAPHICS 

10130  PRINT  CHR*(27)S*ll 30T* 

10140  PRINTER  IS  10 

10190  RETURN- 

10100  SUSCND 
10170  SUB  Plot 
10100  OPTION  BASE  0 
10190  I 

10200  COH  INTEGER  I , J,Curv*,Np,Hn,N,N*,Nr , REAL  An*g< • > , Apos<« > , A<*> , Z1 , Z3 , Z4 
10210  COH  Alpha, T*lpha,Rho,Tr ho, Rho_int t i *1 , Trhoi , Phi , Tel , Nora, A I *ha2 
10220  COH  Hl,N2,H3,P*rc«nt  toag*,Ya7Yb, Ap«rtur«, Y  bullet 
10230  • 

10240  COH  INTEGER  Y0_1oop,Mray , Add_ray , Surf_no,Fl  *g,  FI ag2, N_i ncr*a*nt , Hi t_t ot al 
10290  COH  INTEGER  Lt recount , Li nvaax  ~  “ 

10200  COH  INTEGER  P»*l*ct,Hplb 


* , DD. DD, *  inch**' 


10200  COH  REAL  Nat n, Naax, RO_«ax 

10290  COH  Ray  trace*, Digitize*, Grin*, G*, Grind 

10300  COH  X<e>»V<*>,Xc<*),N<*>,R<*> 


10320  CON  Rho<*),Phi <*>,C<*>, Y3<*),Ht t  <*> 
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14330  I 

10344  I  THE  ORIGINAL  VERSION  OR  THIS  ROUTINE  IS  LOCATED  IN  THE  HR-9043 

10330  I  LIBRARY  TARE  No.  TUO  SERI  .09043-10203  PROGRAM  “REGPLT" 

103C4  • 

10370  1 

10300  >  FNMAX  AND  FNHIN  HAVE  BEEN  HADE  INTO  SUBROUTINES 

10390 

10400  Sat  up:  IF  <Plota*“P“)  OR  (Plot*»"p«>  THEN  P9972a 

10410  CrtT  PLOTTER  IS  13, ‘GRAPHICS* 

10420  GOTO  10440 

10430  P9072«:  PLOTTER  IS  P»*I act , Hpl b, "9072A* 

10440  GCLEAR 

10430  LIMIT  0,104,0,140  •  ALL  UNITS  IN  MILLIMETERS 

10400  LINS  TYPE  1 

10470  LD1R  0 

10404  LORG  3 

10490 

10300  DATA  -2,-1, 1,2 

10314  READ  Up, Dm, Ad, Mu 

10320  DATA  .39794,. <9097,. 07300 

10330  READ  Log2 , LogS , Lo07 

10340  1 

10330  IF  (Gr1nc*"*Y*>  OR  <C rine*«"y*>  THEN  Grine 

10300  IF  <G9-*Y')  OR  (G*«"y‘>  THEN  Grin 

10370  IF  (DigitixtS«*Y*)  OR  (Dig! t ixt*x*y">  THEN  Digit 

10304  IF  (Ray  tracts*"  Y" )  OR  (Ray  traet**"y">  THEN  Ray 

10390  ! 

10400  Ray:Xain*Xorg*Yorg*4 
10010  Xaax-14 

10020  Yaax*V_bul lat 

I 0030  Ya 1 n*-Yaax 

10040  PRINT  PAGE,"  Xaax  la  tht  aaxiaua  ltngth  along  tht  GLM  axis  uhlch  you* 
10034  PRINT  'want  to  bt  displayed." 

10000  PRINT  LIN<  1  > ,  “  A  rult  of  thtuab  I  s  to  pt.ck  ’a'  typical  valut  of  X.c  (tht 

X-Inttrctpt* 

10070  PRINT  *froa  tht  prlnttd  output  for  tht  ray  tract  and  add  ont  inch  to* 

10040  PRINT  ’that  valut.  For  txaapltl  if  tht  aajorlty  of  thp  Xc  valuta  list* 

d* 

14090  PRINT  "hawt  valuta  around  3.0,  than  kay  in  0.0  and  PRESS  CONT. “ 

10700  Rayll INPUT  "HHAT  IS  THE  VALUE  OF  Xaax  (DEFAULT  VALUE  IS  10.0  INCHES  >  ?*,X 

•ax 

10710  IF  XaaxOXaln  THEN  BEEP 

10720  IF  XaaxOXaln  THEN  DISP  "Xaax  MUST  BE  >  Xain  ■  0.  PLEASE  RE-ENTER 

Xaax.* 

14730  IF  XaaxOXaln  THEN  WAIT  2300 

14740  IF  XaaxOXaln  THEN  Rayl 

10730  Ray  scalt:  LOCATE  13,130,23,100  1  ALL  UNITS  IN  GDU'S 

10700  GOSUB  Saat 

10774  I  SCALE  Xain-. StXfudgt, Xaax*. 3*A»0(Yt1e>,-Y  bul 1tt-.23*ABS(Ytic>, 

Y  but  1 tt ♦. 23*ABf (Yt ie> 

10700  SCALE  Xal n-. 3*ABS( Yt I c ) , Xaax*. 3#ABS( Yt 1 c > , -Y  bul 1 tt-. 23»AB8( Yt 1 

«>,Y  bul 1tt«.23*ABS(Ytic> 

10794  I  CLIP  Xain-. 3«Xfudgt, Xaax*. 3tAB0(Yt1c>,-Y  bul 1 tt-.23#ABS( Yt 1 c ) , 

Y  bul ltt*.23*ABS(Yt1e> 

10000  CLIP  Xain-.0tABS( Yt 1«),Xaaxt.3*ABS(Yt 1e >,-Y  bul 1 tt-. 23*AB0(Yt i 

«»,Y  bull tt t . 2S*ABS( Yt 1 c > 

14010  GOSUB  Saat  axta 

10020  CLIP  Xain, 1S¥, -Y  bulItt.Y  bul tat 

10030  SUBEXIT 

10040  Digit:  LOCATE  0,130,30,100  !  ALL  UNITS  IN  GDU'S 

100S0  XaaxaY  bul 1 tt 

10000  Xaina-Xaax 

10070  Xprg«Yorga0 

10000  Yaaxal 

10090  Yal n»0 

10900  *  GOSUB  Saat 

10910  Digit i.aealtt  SCALE  -V  bull#*-. 13*ABS( Yt i c >, Y  but Ittt. 13*AB0( Yt ic >,-. 13*AB 
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sm<c>,l*.  13*AIS<Ytlc> 

10020  CLIP  -V  bull*!-.  13»AB$< Yt  I  c  ) ,  Y  bull  et*.  l3*AIS<Yt  I  e  > , 13»AI 

S<Vtlc), l4.13*AIS<Ytle> 

im«  GOSUI  Sim  ixii 

l(»4(  SUIEXI T 

10030  Grin:  GOTO  Ray 

t«K«  Crlnc:  LOCATE  18,133,20,101  I  ALL  UNITS  IN  GDU'S 

10070  XorgaYorg>0 

10000  GOSUI  Ain  c 

10000  GOSUI  Aax“e 

11000  YatneCalnaATnc 

11010  Yaax"Caax>Aaxc 

11020  GOSUI  Ain  r 

11030  GOSUI  Hax'r 

11040  XaaxaAaxr  ~ 

11030  XalnnAl nr 

110C0  Gr Inc  scale:  GOSUI  Saae 

11070  SCALE  Xaln,Xaax*AI3<Xtle>,Yaln,Yoax*Alsmie> 

11000  CLIP  Xain,Xaax*AIS<Xt le), Yain, Yaax+A|S<Yt i e > 

11000  GOSUI  Saa*  axes 

11100  SUIEXIT 

11110  Saae:  Lx«LCT<Xaax-Xal n> 

11120  Ly"LGT< Yaax-Yal n ) 

11130  Xfudgea.20e<Xaax-Xaln) 

11140  Yf udgea • 20*  <  Yaax-Ya I n  > 

11130  Tfcaarks:  Testxt le»FRACTCLx>+<Lx<0> 

11100  TestytlcaFRACT<Ly>«<Ly<8) 

11170  Xttcs10*(lNT(Lx)-l)*<l  +  l< Se< (Test xt 1 c >Log2>  AND  (Teatxt l c<LogS) » 

♦4*< (Testxt ie >»Log3>  AND  (Testxt I c<aLog7) >+S, 3*(Test xt 1 c >Log7> > 

11100  Ytlcal0~<lNT<Ly)-l)*<l*1.3*<(Testytic>Log2>  AND  (Testyt I c<Log3> > 

♦4e< <Testyt le >*Log3)  AND  (Testyt i c< «Log7) >*S. 3*<Testyt I c >Log7> > 

11100  RETURN 

11200  Saae_axes:  CALL  Laxes<Xtlc,Yttc,Xorg,Yorg,XaaJ,Yaaj, Atntlestze,Xnln,Xaax, 
Yaln.Yaax, Alnn,Haxx> 

11210  RETURN 

11220  Ain  r:  Alnr«R<0> 

11230  FOR  lal  TO  Nr ay 

11240  AlnraAINtAI nr ,R< I > ) 

11230  NEXT  1 

11200  RETURN 

11270  Rax  r:  Aaxr-R<0> 

11200  FOR  I-l  TO  Nr ay 

11200  Naxr-NNX<Aaxr,R(t)> 

11300  NEXT  I 

11310  RETURN 

11320  Ntn  c:  AlncaC(8> 

11330  ~  FOR  lal  TO  Nr ay 

11340  Nlnc>NIN<Nlnc,C(m 

11380  NEXT  I 

11300  RETURN 

11370  Max  Ct  NaxcaC(0> 

11300  FOR  I«l  TO  Nray 

11300  nexcaNAX<Hexc,C<I» 

1 1400  NEXT  I 

11410  RETURN 

11420  SUBEND 

11430  SUI  LaxesIXt Ic, Ytic, Xorg,Yorg,XaaJ, YaaJ, Mint tcslxe,Xeln, Xaax, Yaln.Yaax, Ain 
n, Aaxx) 

11440  OPTION  IASS  0 
11430  I 

11400  CON  INTEGER  l , J, Curve, Np, Nn, N, Ns, Nr , RIAL  Aneg<»>,Apos<*>,A<*>, 21,23,24 
11470  CON  Alpha, Talpha,Rho,Trho,Rho_tntt I al , Trhol , Phi , To  I .Nora, Alpha! 

11400  CON  HI, N2,N3, Percent  laage,Ya7Yb, Aperture, Y  bullet 
11400  l 

11300  CON  INTEGER  Y0_1 oop, Nray, Add  ray, Surf  no,Flag,Flag2,N  inereaent , hi t  tota 
I  “ 

11310  CON  INTEGER  LI  recount, LI neaax 
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1 1529 
11939 
11349 
11339 
11399 
11379 
11399 
11999 
11999 
11919 
11929 
11939 
11949 
11939 
11999 
11979 
11999 
11999 
11799 
11719 
11729 
11739 
11749 
11739 
11799 
11779 
11799 
11799 
11999 
11919 
11929 
11939 
11949 
11939 
11999 
11979 
11999 
11999 
11999 
11919 
11929 
11939 
11949 
11939 
11999 
11979 
11999 
11999 
12999 
12919 
12929 
12939 
12949 
12939 
12999 
12979 
12999 
12999 
12199 
12119 
12129 
12139 
12149 
12139 
12199 
12179 
12199 


CON  IHTCCCR  Psel ect , Hpi b 

I 

CON  REAL  Nain,NB*x,R0_eax 

CON  Ray  trtctl, Di gi t i z#», Gri n», GZ, Gri nc *,PI ot *, Dat e* 
CON  X<»7, Y<e>,Xc<#),N<e>,R<»> 

i 

CON  Rho<*),Phi 

I 

DEC 

LINE  TYRE  1 
LDIR  9 
LORC  3 

IF  <Xain>«Xaax>  OR  < Ye f n>»Yaax )  THEN  SUBEXIT 
GRAPHICS 

Xfudg*a.02»<Xaax-Xain> 

Yfudg*«.92*<Yaax-YBin> 

Xaajat 

Yaaj-l 

Htntic»tzea2 

I 

IF  <Grinc*a"Y*>  OR  THEN  Grinc 

IF  <G»«*Y*>  OR  <G9**y*>  THEN  Grin 
IF  (DfgUIttKT)  OR  <Dlgitiz***-y>  THEN  Digit 
IF  <Ray  trace»a,Y*>  OR  <R*y_tr*e«*«‘y‘  >  THEN  Ray 
I  ” 

Grinel  LINE  TYPE  3 

GRID  Xt i e , Yt i e , Xorg, Yorg , XaaJ , YaaJ , 2*H1 nt i e s i z* 

LINE  TYPE  1 

FRAHE 

GOTO  Lab* lx  grlnc 
Grin:  GOTO  Ray 

I  Digit:  AXES  . 1,. 1,9,0, 1,1,2 
Digit:  AXES  Xtic,. 1,9,9, 1.1,2 
GOTO  Label x_d 

Ray:  AXES  Xt i e , Yt ie , Xorg, Yorg, XaaJ , YaaJ ,N1 nt 1 e»i z* 
Label x:  LDIR  99 
LORC  0 

FOR  A-Xorg  TO  Xaax  STEP  ADS<Xtle> 

HOVE  A, Yorg-Yf udg* 

IF  AM  THEN  LADEL  USING  11920; A 
IHAGE  9,K 

IF  AM  THEN  GOTO  11999 
LADEL  USING  11939; A 
IHAGE  DDD.O.K 
NEXT  A 
Labely:  LDIR  0 
LORC  9 

FOR  A«-Y_bull*t  TO  Y_bull*t  STEP  ADS<Ytie) 

HOVE  Xorg-Xfudge, A 

IP  A-9  THEN  LADEL  USING  11929; A 
IF  A>9  THEN  GOTO  12940 
LADEL  USING  11939; A 
NEXT  A 
GOTO  Label 
I 

Label  X  d:  LOIR  99 
"  LORC  9 

1  FOR  Ae-y  bullet  TO  Y  bullet  STEP  .1 

FOR  Aa-Y“bull*t  TO  Y~bul  let  STEP  ADSCXtiO 
HOVE  ATvorg-Yfudg*- 

IF  A>9  THEN  LADEL  USING  11 929; A 
IF  AM  THEN  GOTO  12139 
LADEL  USING  11930; A 
NEXT  A 
Labely  dl  LDIR  0 
"  LORG  0 

FOR  AM  TO  Yaax  STEF  .1 
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i2i»a. 

HOVE  Xorg-Xfudge, A 

12208 

IF  A«0  THEN  LASEL  USING  U920;A 

122,10 

IF  A*0  THEN  GOTO  12230 

12220 

URIEL  USING  119S0;A 

12230 

NEXT  A 

12240 

GOTO  Label 

12230 

1 

12260 

Labelx  grind  LOIR  90 

12270 

LORG  8 

12280 

FOR  A«Xorg  TO  Xaax*AIS(Xt i c >  STEP 

AIS(Xt i c  > 

12290 

HOVE  A.Yorg-Yfudge 

12300 

LAIEL  USING  12310IA 

12310 

IMAGE  »,K 

12320 

NEXT  A 

12330 

Labely  grtnc;  LOIR  0 

12340 

LORG  8 

12330 

FOR  A«Yorg  TO  Yaax*AIS < Yt i e >  STEP 

ABS(Ytic) 

12360 

HOVE  Xorg-Xfudge, A 

12370 

LAIEL  USING  12310-.A 

12380 

NEXT  A 

12390 

\ 

12400 

Label  :  LOIR  8 

12410 

LORG  3 

12420 

HOVE  -18eXaax,9 

12430 

LAIEL  "RESET  CR'LF" 

12440 

SETGU 

12430 

CSI2E  2.3 

124C0 

IF  (Grinc*-"Y">  OR  <Crine*a"y*>  THEN  i 

Grinc  label 

12478 

IF  CGS*"Y" )  OR  (G#-*y")  THEH  Grin  label 

12400 

IF  (Digitiie*«“Y">  OR  (Digi t t *e*«"y" > 

THEN  Digit 

12490 

IF  <Ray  trace*»“Y")  OR  (Ray  tpace<*”y 

">  THEN  Ray 

12300 

! 

12310 

Ray  label:  Centerx«72.3  !  CHANGE  IN  Graph  ALSO 

12320 

Centery»62. 3 

12330 

HOVE  1 . 3*Cent crx, 1 3 

12340 

LASEL  USING  12330; Nray 

12330 

IMAGE  "Nuaber  of  Raya  5  “,X 

12360 

MOVE  .3eCenterx,9 

12370 

LAIEL  USING  12380;Rho  initial 

12380 

IMAGE  "Incident  Ray  Angle  :  ",30.00, 

"  deg" 

12390 

MOVE  . SeCenterx, 3 

12600 

LAIEL  USING  12610;N2 

12610 

IMAGE  *n2  :  ’,0.00000 

12620 

HOVE  1. SeCenterx, 9 

12630 

LAIEL  USING  12640; Aperture 

12640 

IMACE  "Aperture  *  ",0.000,"  inch' 

12630 

MOVE  Centerx,20 

12660 

LAIEL  "Distance  Along  the  GLH  Axis  (inches!* 

12670 

f 

12680 

CSIZE  3 

12690 

MOVE  .SeCenterx, 13 

12700 

LAIEL  USING  12710; Curve 

12710 

IMAGE  "Curve  Huaber  :  ",K 

12720 

LOIR  90 

12730 

MOVE  1.3,Centery 

12740 

LAIEL  "Radial  Distance  Froa  the  Axis 

(inches)" 

12730 

LOIR  0 

12760 

CSIZE  13^4.34 

12770 

GOTO  Label  end 

12780 

1 

12790 

Digit  label:  CenterxaSS 

12000 

Cent  try »63 

12010 

MOVE  1. SeCenterx, 13 

12020 

LAIEL  USING  123S0;Mray 

12030 

HOVE  .SeCenterx, 9 

12840 

LAIEL  USING  12830;Hi t  total 

\ 

4 

[ 

i 


i 
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IHRGE  "Nuaber  of  Hlt.s  on  the  Image  Plan*  : 

HOVE  1 . 3*C*nt*rx, 9 
URIEL  USING  12880; P*re*nt_i aag* 

IHRGE  *t!  of  Ravs  to  laage'^lan*  :  ‘,80.  DO 
HOVE  1 . 3»C*nt erx , 3 
URIEL  USING  12918; 23 

IHRGE  “laag*  Plan*  :  *,000.00,“  inch*** 
HOVE  . 3eC*nt*rx,3 
URIEL  USING  12940; NJnereaent 
IHRGE  "Nuaber  of  Inereaents  10,1.1]  :  “,K 


CSIZE  3 

HOVE  Cent*rx,20 

URIEL  ‘Noraalized  Nuaber  of  Hits  os  Distance  f roa  th*  Axis* 
HOVE  .3*C*nt*rx, 13 
URIEL  USING  12710; Curve 
IHRGE  “Curve  Nuaber  :  “,K 
GOTO  Lab*1_*nd 

i  ~ 

Grin_lab*1:  C*nt*px»72.5 
C*nt*ry«62.3 
CSIZE  2.3 

HOVE  . 3»C*nt«rx,  13 
URIEL  USING  13890;N1 
IHRGE  "nl  1  *,00.00000 
HOVE  . 3»C#nt#rx, 9 
URIEL  USING  13120; N3 
IHRGE  *n3  :  *,00.00000 
HOVE  1 . 3*C*nt *px, 13 
URIEL  USING  13130; Alpha 
IHRGE  ‘Alpha  :  ‘,00.00,*  degrees* 

HOVE  1 . 3*C*nt*px, 9 
URIEL  USING  13180;Npay 
IHRGE  *Nuab*P  of  Raya  S  ‘,K 
CSIZE  3 

HOVE  C*nt*rx, 20 
URIEL  "GRIN  TRACE- 
LOIR  90 

HOVE  1.3,C*nt*py 

LABEL  ‘Radial  Dlstanc*  Proa  th*  Axis  (  inches  >“ 

GOTO  Lab«l_*nd 

Grin*  label*.  CSIZE  3 
LORG  3 
LOIR  0 
C*nt*rx«7* 

C*nt*py»<4 

HOVE  C*nt*rx,3 

URIEL  ‘Radius  Froa  th*  Origin  (inches]* 

LOIR  90 

HOVE  1. 3, Cent *ry 

URIEL  ‘Gradient  Index  Constant  :  C(r>  (inches)* 

I 

Label  end:  CSIZE  13/4.34 
LOIR  90 
LORG  3 
SSTUU 
SUISND 

SUI  XlposOi, Y) 

OPTION  IRSE  0 

I 

COH  tNTEGER  I ,  J, Curve, Np, Nn, H,Ns, Nr , REAL  An*g<* > , Apos<*> , A< *> , 21 , 23,  Z4 
COH  Alpha, Talpha, Rho, Trho, Rho_?nt 1 1 al ,Trhoi ,Phl , Tol , Nora, R I pha2 
COH  Nl,N2,N3,P*rc*nt  i a age , Y*7Yb, Apert ur* , Y  bullet 

I 

•  COH  INTEGER  Y0_loop,Nray, Add_ray , Surf_no,PI  ag,Pl ag2,N_incr*aent ,Hi t_tota 
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13318  ! 

13328  DEC 

13338  DCF  FNYl<Y>«Y*Talphs'<Talpha-Trhol  !  FINDS  THE  Y-VALUE  OF  THE  INTERCEPT 
13348  I  OF  THE  RAY  AND  THE  FIRST  SURFACE 

13388  DEF  FNX1 < Y!-Y/Tsl phs  I  FINDS  THE  X-VALUE  OF  THE  INTERCEPT  OF  THE  RAY 

13380  1  AND  THE  FIRST  SURFACE 

13378  IF  Surf  no-2  THEN  Hoop* 

13388  Y.FNY1<Y>" 

13398  Hoops: X-FNX1IY) 

13888  SUBEND 

13818  SUB  Xln*g<X, Y) 

13828  OPTION  BASE  0 
13830  < 

13848  COM  INTEGER  1 , J, Curud, Np, Nn, N, Ns, Nr , REAL  Antij<*>  fApos<*> ,  A<#>,  21 , 23,  Z4 
13830  CON  Alpha,  T*1  phs,  Rho,  Trho,  Rho_i  f>(  t  i  si ,  Trhoi  ,fh  I  ,_ToJ.,  Norm,  A1  pha2 
13888  CON  N1 ,N2, N3, P*rc*nt  i  aag*,  Ya,  Yb,  Ap*rturs,.Y  bull*}.  .  . 

13878  1  “  " 

13880  COH  INTEGER  Y0  I oop, Nray , Add  ray, Surf  no, FI ag, FI  ag2, N  i ncr*aont , Hi t  tots 
I  "  ” 

13890  ! 

13700  DEG 

13710  A 1 phan-- 1 *A 1 pha 
13720  Talphan-TANtAlphan! 

13730  DEF  FNY1 <Y!«Y*Talphan/<Talphan-Trho!  I  FINDS  THE  Y-VALUE  OF  THE  INTERCEPT 

13740  !  OF  THE  RAY  AND  THE  FIRST  SURFACE 

13738  DEF  FHX1 < Y!-Y^TaI phsn  I  FINDS  THE  X-VALUE  OF  THE  INTERCEPT  OF  THE  RAY 

13780  I  AND  THE  FIRST  SURFACE 

13770  IF  Surf  no-2  THEN  Hoops 

13708  Y-FNYt<Yl- 

13798  Hoops, X-FNX1 <  Y! 

13008  SUBENB 
13018  SUB  Dlslogu* 

13020  OPTION  BASE  0 
13030  I 

13048  COA  INTEGER  I , J,  Curvo, Np, Nn, N, Ns,Nr,REAL  An«g< *! ,  Apos < * > , A< * > , Z 1 , 23, Z4 
13830  COH  A I phs, Tsl phs, Rho,  Trho, Rho_i ni tl al , Trhoi ,  Phi , Tol , Nora, Alphs2 
13088  con  HI, N2,N3, Percent  1 aag# ,  Ya, Yb, Ap*rt ur# , Y  bulltt 
13870  ! 

13000  con  INTEGER  Y0  loop, Nray,  Add  rsy.Surf  no, FI  sg, FI sg2, N  i ncroaont , HI t  tots 
1  ~  " 

13890  con  INTEGER  Li  nocount , LI n«aax 

13900  COH  INTEGER  Ps#l#et,Hplb 

13910  I 

13920  COH  REAL  Hal n, Nasx , R0_asx 

13930  CON  Rsy  tract*, Digitiztf, Grin*, Gt,GrtncS, Plots, Dat#S 

13940  eon  X<#7,Y<»l,Xc<*l,N<*!,R<»! 

13930  • 

13980  CON  Rho<*! , Phi<*!,C<*!tY3<*!,Hlt<#! 

13970  I 

13900  DEG 

13990  Inltlsl iz#_top: Alpha-21 


14080  Tsl phs-TAH( Alpha! 

14018  Rho_ini t I sl -0 

14020  Trho  l-TAH<Rho  Initial! 

14030  I 

14040  Tol-. 80001 

14030  23-24-38 

14088  N1-H3-1 

14070  N2-1.3 

14080 

14090  Nray- 10  I  IN  ORDER  TO  OUTLINE  THE  APERTURE  AN  EXTRA  RAY 

14100  Add  ray-0  •  MUST  IE  ADDED  IF  Ya  •  0 

14110  YS-O 

14120  Yb-Y  build 

14130  Aportur*-Ya-Yb 

14140  '  I 

14130  Y  bulUt-l.l 
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14169 

14179 

’  .  \ 

14199 

■  Linecouni*9 

14199 

Linemax-46 

14299 

1 

14219 

Nmax-4 

14229 

Nmtn-2 

14239 

Ym2-<1.03*Y  bu)let'2>-2  !  THE  1.03  IS 

A  FUDGE  FACTOR  TO 

14249 

Xa2-< 1 . 93*Y  bu 1 1  at ^<2»TaI pha> »^2  ipREVENT  THE  RADIUS  FROM 

14239 

R9  aax-SQR<Xm2*Ym2)  •  BECOMING  TOO  SMALL 

AND  CAUSING  A 

14269 

i  “  NUMERICAL  ERROR  IN  THE 

INDEX  SUBROUTINES 

14279  Pselect»7 

142(9  Hp i b*3 

14299  I 

14399 
14319 
14329 
14339 
14349 
14339 
14399  REM 
14379  GOTO  Alpha 
14399  REM  TEMP  ••* 

14399  Begin:  PRINT  PACE,*  The  following  drawii 


Gr i n*«"C" 

C*-"N“ 

Grtnc*-"N" 

Plot*a"C" 

Digitize*-" 

Date*-"" 

»•*  TEMP 


i  1  1  iictrit  at  th#  nnt  i  t 


14499 
e  ■ 

14419 
<  GUM  > . " 
14429 
»* 

14439 
nables" 
14449 
14439 
14469 
14479 
14499 
14499 
14399 
1  used" 
14319 
t4329 
14339 
14349 
14339 
14369 
1*  * 
14379 


PRINT  "which  this  prograa  attempts  to  solve;  focousing  monochroaati 

PRINT  ‘light  rays  through  a  conical  lens  for  a  Gun-Launchad-Mi ssi 1 • 

PRINT  “  The  pictura  is  also  labeled  showing  tha  various  quant t t i a 

PRINT  "Plaasa  study  tha  pictura  and  become  faailtar  with  it.  Tha  va 

PRINT  "will  be  axplainad  as  thay  appaar  in  tha  prograa. * 

PRINT  LIN<2), "PRESS  CONT" 

PAUSE 

CALL  Pictura 

PRINT  PAGE,"  Z1  is  tha  intarcapt  of  tha  sacond  surf  act  and  the" 
PRINT  "tha  GLM-axis.  Tharafor'a,  tha  valua  of  21  is  APOS<0>." 

PRINT  LIN< 1 ) . "NOTE:  Apos<9)  is  tha  constant  tara  in  tha  polynoaia 

PRINT  ■  to  dascriba  tha  sacond  surfaca  of  tha  Ians  in  tha  * 

PRINT  '  uppar  half-plane." 

PRINT  •  Tha  (min, max)  valuas  of  Z1  ara  C9, infinity]  inchas.* 

PRINT  LIN<2), "PRESS  CONT* 

PAUSE 

PRINT  PAGE,"  Thara  ara  two  pi  anas  usad  as  laaga  pi  anas.  Tha  first 
PRINT  "locatad  at  X-Z3  (default  valua  ■  ";Z3;  "inches).  This  locatio 


14399 

oblaa. * 

14399 

14699 

will  * 

14619 

14629 

24  ■  "JZ4J 
14639 
14649 
14639 
arri va" 

14669 

■ 


PRINT  "is  prograaaabla,  according  to  tha  naads  of  tha  particular  pr 

PRINT  "Vou  k ay  in  tha  naw  location  whan  locating  tha  position  of  " 
PRINT  "aaxiaua  ray  dansity,  or  whan  a  naw  run  is  bagun.  Diractions 

PRINT  "ba  providad  at  tha  appropriate  tiaa." 

PRINT  L!N< 1 > ,  "  Tha  sacond  iaaga  plana  is  permanent ,  locatad  at  X> 
■inches. " 

PRINT  LIN<2), "PRESS  CONT" 

PAUSE 

PRINT  PAGE,"  This  prograa  will  trace  mochroaattc  light  rays  which 
PRINT  "at  tha  first  surfaca  parallel  or  at  an  angle  to  tha  GLH  axis 


14679  *  PRINT  "Mon-axial  rays  approach  tha  CLN  from  'above',  for  all  rays  a 

ra  * 


2.01 


-  •  V 


i4«ae  print 

l 4690  PRINT 

14704  PAUSE 

14710  PRINT 

14720  PRINT 

14730  PRINT 

urfac*  ■ 

14740  PRINT 

U€  normal." 

14730  PRINT 

face  normal . * 

14700  PRINT 

14770  PRINT 


PRINT  ’initiated  in  th*  upper  half  of  th*  meridian  plan*.* 

PRINT  LIN(2), “PRESS  CONT* 

PAUSE 

PRINT  PAGEi*  Th*  prograa  us**  Sn*!l's  Law  without  approx i aat i on. * 
PRINT  “Th*  appropriat*  variables  ar*:“ 

PRINT  LIN(1>,"  1>  Nora  *  dY/dX  »  slop*  of  th*  normal  to  th*  s 

PRINT  *  2)  Th*tai  ■  angl*  of  incidence  with  r*sp*ct  to  th*  surf 

PRINT  *  3)  Th*tar  ■  angle  of  refraction  with  respect  to  th*  sur 

PRINT  *  4)  Rho  •  angle  of  th*  ray  with  r**p*ct  to  th*  GLN-axis" 

PRINT  *  (subscripts  indicat*  th*  region  th*  ray  is  in) 


14700  PRINT  LIN<2), 'PRESS  CONT" 

14790  PAUSE 

14000  PRINT  PACE, "The  sign  convention  is  :* 

14010  PRINT  LIN<1),"  1)  th*  origin  is  placed  at  th*  u*rt*x  of  th*  first  su 

rfac*. " 

14020  PRINT  *  2)  distances:  <a)  positive  to  th*  right  of  th*  origin." 

14030  PRINT  "  (b)  positive  above  th*  origin  (Y-axis)." 

14040  PRINT  "  (c)  positive  out  of  th*  meridian  plan*  (screen 


14020  PRINT  * 

14030  PRINT  " 

14040  PRINT  " 

>.* 

14030  PRINT  "  (I*,  a  right  hand  system.)* 

14000  PRINT  *  3)  angles:  slop*  -  A1ph*2  is  POSITIVE  for  count*r-c l ockwi se" 

14070  PRINT  *  rotation  from  th*  GLN-axis  to  th*  ray* 

14000  PRINT  "  4)  symbols:  unpriaed  *  object  space." 

14090  PRINT  "  primed  ■  image  space." 

14900  PRINT  LIN(2), "PRESS  CONT" 

14910  PAUSE 

14920  Alpha: PRINT  PAGE,"  Alpha  is  th*  angle  of  inclination  of  th*  ■ 

14930  PRINT  "FIRST  surface  with  respect  to  th*  GLN-AXIS" 

14940  PRINT  LIN(3>,"  Th*  current  vatu*  of  ALPHA  i s* ; A1 pha, "degrees" 

14930  INPUT  -UHAT  IS  THE  NEU  VALUE  OF  ALPHA  (DEGREES)?*, Alpha 

14960  Index: PRINT  PAGE,"  Th*  l«ns  system  is  assumed  to  be  operating  in  air." 

14970  PRINT  "Therefor*  th*  first  index  of  refraction  *  nl»  1.00000" 

14980  PRINT  LIN(l),"  It  is  assumed  that  nl  (  n2  for  th*  homogeneous  and  gra 

dt*nt  cases." 

14990  PRINT  LIN(l),"  You  are  fre*  to  choose  any  values  for  n2  and  n3  for  the 
homogeneous  case.  " 

13000  PRINT  LIN(2), "PRESS  CONT" 

13010  PAUSE 

13020  PRINT  PAGE,"  Th*  prograa  has  the  capability  to  us*  a  gradient  index  of 
refraction  (GRIN)." 

13030  PRINT  "Two  GRIN  subroutines  are  available:" 


13040  PRINT  LINO),’ 

arles  • 

13030  PRINT  * 

13060  PRINT  " 

u>* 

13070  PRINT  * 

13000  PRINT  • 

13090  PRINT  • 

13100  PRINT  LINO)," 

enter  is  located" 

13110  PRINT  * 

13120  PRINT  ’ 


1)  Parabola  :  th*  index  of  region  2  (th*  lens)  v 

as  a  parabola  from  a  min  at  th*  vertex" 
to  a  maximum  (at  a  radius  specified  by  yo 

then  down  to  a  value  determined  by  the  * 
top  of  th*  GLN" 

Th*  equation  is  C  n(r>  «ti  •  r-2  1" 

2)  Circle  :  th*  Index  varies  as  a  circle  whose  c 


13110  PRINT  *  at  a  specified  radius  from  the  origin* 

13120  PRINT  "  Th*  equation  is  C  n(r>  *  SQR(  RO  max-2  ♦  r» 

2)1" 

13130  PRINT  LIN(l),"Th*  radius  (for  circle)  has  a  minimum  vatu*  which  is  half 
th*  * 

13140  PRINT  "length  of  th*  first  surface;  appr  ox  i  mat  *  I  y  ";R0_j»ax;*  inches." 

13130  PRINT  LINO),’  You  are  free  to  choos*  any  value  for  n3  for  th*  GRIN  ca 

se." 

13160  PRINT  LIN(2), "PRESS  CONT" 

13170  PAUSE 
13100  '  G»e*N" 

13190  INPUT  "ARE  YOU  GOING  TO  USE  GRIN  ?  Y/N’,G» 


-U  > 


13200  IF  (GS»"N“)  OR  (G#«"n")  THEN  N2 
15210  PRINT  PAG E,  "  Required  data  for  grin  1* 

13220  PRINT  L1N(1>,"  1)  Main  •  ainiaua  value  of  the  index  of" 

13230  PRINT  "  of  refraction  (  default  «  *;Nain;")“ 

15240  PRINT  ■  2)  Naax  «  naxlaua  value  of  the  Index  (not  required  for 

circle.)" 

13230  PRINT  *  (  Default  «  *;Naax;*>" 

1S2S0  PRINT  "  3)  R0_aax  *  radius  froa  the  origin  at  uhich  the  aaxiaua 

• 

13270  PRINT  "  value  of  the  index  occur*.  <  MINIMUM  ■  *;R0 

_aax; *)* 

13200  INPUT  “UHICH  ONE  :  CIRCLE  (C)  OR  PARABOLA  (P>  <  DEFAULT  •  C  >  ?  C'P*,Gri 
n* 

13290  INPUT  “MHAT  IS  Main  ?*,Nain 

13300  IF  (Grin#«‘C")  OR  (Grin*«*e">  THEN  N3 

13310  INPUT  “UHAT  IS  Naax  7",  Naax 

13320  INPUT  “UHAT  IS  R0  aax  ?*,R0  aax 

13330  N2: INPUT  “UHAT  IS  n2  ?“,N2 

13340  N31 INPUT  “UHAT  IS  n3  ?",N3 

13330  IF  <G«-*N*>  OR  (G*«"n“)  THEN  Rho_initlal 

13300  PRINT  LIN(2). “NOTEl  When  the  paraaeter  data  I*  printed*  the  value* 

of  * 

13370  PRINT  *  the  index  at  the  first  surface  intercept  will  be  * 

13300  PRINT  "  printed  in  the  folowing  Banner:* 

13390  PRINT  "  n(0>  ■  2.3343  n(9>  ■  2.3367  n<10>  »  1.9876" 

13400  PRINT  *  The  subscript  indicates  the  nuaber  of  the  ray  intercept! 

n*“ 

13410  PRINT  *  the  first  surface.* 

13420  PRINT  LIN<2), "PRESS  CONT" 

13430  PAUSE 

13440  Rho_initia1  SPRINT  PAGE,"  The  rays  incident  on  the  first  surface  are  * 
13430  PRINT  "initially  assuaed  to  be  parallel  to  the  X-axis.  ■ 

13400  PRINT  LIN(2),"  If  you  want  to  trace  rays  uhich  are  at  an  ang 

1e  " 

13470  PRINT  "other  than  xero  (0)  degrees  uith  respect  to  the  X-axis, 

13400  PRINT  "then  key  in  the  value  of  the  angle  (in  degrees)  uith  * 

13490  PRINT  "respect  to  the  X-axis." 

13300  INPUT  "RHO  ?" ,  Rho_i ni t i ql 

13310  Rho  initia|w-l»ABS(Rho  initial) 

13320  Trhoi-TAN<Rho  initial >~ 

13330  Y_bullet:  PRINT  PAGE,"  The  GLM  is  assuaed  to  be  assuaed  to  be  syaaetric 
about  the" 

13340  PRINT  "longitudinal  axis.  The  aaxiaua  value  of  the  GLM  radius  is 

■ 


13330  PRINT  "called  Y^bullet  whose  default  value  is  ";Y  bullet;"  inche 

s.  * 

13360  PRINT  LIN<2>,"  If  your  design  requires  a  different  value,  plea 

se" 

13370  PRINT  "enter  that  value  new." 

13300  INPUT  "V  BULLET  (INCHES)  ?",V  bullet 

13390  Yb*Y  bullet 

13600  Aperture:  PRINT  PAGE,"  The  aperture  is  the  difference  in  radial  distance 
froa  the  GLM  axis" 

13610  PRINT  "projected  onto  the  first  surface, into  uhich  light  is  alio 

wed  to  enter* 

13620  PRINT  "the  GLM  optical  systea.  The  paraaeter*  are  :• 

13630  PRINT  L!N<1),"  I)  Ye  S  the  ainiaua  Y-value  of  the  aperture* 

13640  PRINT  •  (default  value  •*;Ya;“inch  )* 

13630  PRINT  "  2)  Yb  :  the  aaxiaua  Y-value  of  the  aperture" 

13660  PRINT  •  (default  value  •*;Yb5"ineh)  and  is  (  Y  bull* 

t .  * 

13670  INPUT  "UHAT  IS  Ya  (INCHES)  ?’,Ya 

13600  INPUT  "UHAT  IS  Yb  (INCHES)  ?",Yb 

13690  .  IF  Ye>aYb  THEN  BEEP 

13700  IF  Ya>wYb  THEN  PRINT  "Ya  Bust  be  (  Yb.  Please  enter  again. * 

13710  IF  Ya)aYb  THEN  GOTO  13670 
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19720 

19730 

19740  Kray 

a  usless  * 

19790 

19700 

19770 

19700 

19740 


Apert ur*»Yb-Ya 

IP  Y»<>0  THEN  Add_ray-t 

PRINT  PAGE,’  The  program  util  t  race’ i Nray ;  ’  ray*  through  tha  syste 


PRINT  “you  specify  another  value” 

INPUT  ”  How  eany  ray*  do  you  want  the  prograa  to  trace?*,Hray 
Nr ay • I NT < PBS (Nr ay)) 

IF  Nray< 1  THEN  Nray«10 
IF  <G*«’Y’>  OR  <C#e‘y’>  THEN  Bat* 

19000  Digitize  :  PRINT  PACE,”  The  interval  between  (8  <  Y  <  ;*JY  bullet;’) 

and  <-”;Y_bulT*t;”  <  Y  <_  8)  have  been  divided” 

19810  ~  PRINT  ”7nto“ ;N_inereaent ; ”  increment*  to  determine  ray  density. 


19020  PRINT  LIN<l),"If  you  want  to  change  the  number  of  increment*,  p 

lea**  do  so  now.” 

19830  PRINT  LlN<2),”Th*  amximum  number  of  increments  is  1088.” 

19848  INPUT  ’NUMIER  OF  INCREMENTS  ?” , N_i ncrement 

19898  N_incr*a*ntmINT<ABS<N_incr*a*nt  >7 

19868  **IF  N  increment! 1  THEN  N  incr*m*nt«108 

19870  Date: PRINT  PACE 

19888  INPUT  *Uhat  i*  today's  date  Date* 

19890  Start:  IF  <G*>‘Y”)  OR  <GSm*y”)  THEN  Gymnastics 

19900  PRINT  PAGE,”  The  second  surface  must  be  input  as  polynomial  of  de 

gre*  • 

19910  PRINT  *16  or  less,  defined  as  a  function  of  Y  t  x«f(y>  for  <x,y)  sy 

stem  1* 

19920  PRINT  *If  you  have  not  fit  a  curve  to  your  data,  then  go  to  the  ut i 

litios  * 

19938  PRINT  *  1 tbrary, tape  two  and  load  REGD.  * 

19940  PRINT  ’NOTE  :  1)  Us*  printer  cod*  0  for  a  hard  copy" 

19990  PRINT  *  2)  Invert  the  X  and  Y  values  for  the  positive  branch’ 

19960  PRINT  *  3)  Key  in  <Y,-X>  for  the  negative  branch’ 

19970  PRINT  LIW(l). ’NOTE  :  The  negative  branch  is  the  second  surface  in 

•  _ 

19980  PRINT  •  the  lower  half  plane* 

19990  PRINT  LIN< 1 ) , *  If  this  is  the  case,  then  PRESS  STOP,  then  REMIND 

Tig  ’ 

16008  PRINT  ’fit  your  curve  using  the  utiltie*  library.* 

16018  PRINT  LIN< 1 > , ’  If  not,  then  PRESS  CONT. ’ 

16028  PAUSE 

16030  Coef.dat a: PRINT  PACE  1  THE  FOLLOWING  DATA  ARE  ARRANGED  AS  FOLLOWS: 

16040 
16090 
16060 
16070 
16000 
16090 
16100  I 
16110  I 
16120  I 
16130  I 
16140  • 

16190 
16160 
16170  I 
16100  I 
16190  I 
16200  I 
16210  > 

16220 
16230 
16240  I 
16290  I 
16260  I 
.06104 
16270  '  I 
06104 


I  DATA  CURVE  No. 

I  DATA  NP,NN,N 

I  DATA  APOS  COEFICIENTS  X»f(Y>  FOR  Y>0 
I  DATA  ANEG  COEFICIENTS  X»f<Y>  FOR  Y<0 
I  DATA  Y-F(X>  COEFICIENTS 
1 

DATA  1  I  CURVE  No.  ONE 
DATA  4,4,4 

DATA  .9003867966,1.19219319,3.0138799,-3.4182912,1.39217781 
DATA  .9003867966,-1. 19219319,3.0138799,3.4182912, 1.39217781 
DATA  -.49216186, 1. 10944007, -.66398797, .29894923, -.834 174838 
I 
I 

DATA  2  1  CURVE  He.  10 

DATA  3,3,3 

DATA  1.9193796399,2.27918192,-2.9230983,1.63847031 
DATA  1.9193796399,-2.27919192,-2.9230983,-1.63047031 
DATA  3.3994792,-9.6049369,2. 999923, -. 4412879 

I 

I 

DATA  3  !  CURVE  No.  11 

DATA  6,6,3 

DATA  2.086223634, . 38397, 12.96286,-62. 1908, 129. 7966, -t 14. 8769, 38 
DATA  2. 096223634, -.30397, 12.96206,62. 1900, 129. 7966, 114. 0769, 38. 
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c 


t«2ta 

1(2)1 

is3ee 

16318 

16328 

16338 

16348 

16338 

16368 

16378 


•  SURFACE  NR  1  FOR  n2«4,  F»4  INCHES 


9RTR  -11.283773, 13. 18139, -3. 328168, . 767881 

I 

I 

DAT*  4 
ORTA  2,2,2 

SATA  .3184681721,2.7348136449,-. 3648728143 
SATA  .3184681721 , -2. 7548136449, -. 3648728143 
SATA  -. 1871362123, .3341667828, .82731837881 

I 

i 


16388  Explain:  PRINT 


16398 
16488 
16418 
16428 
16438 
16448 
16438 

16468  Coef  pos: 
16478 
16488 
16498 
16388 
16318 
16328 

ANCH  (Np)  ?-,Np 
16338 
16348  Ouick_loop_p 
branch  coef 7c  lent*: 
16338 


Sine*  this  prograa  is  intendea  to  bo  usod  to  evaluate* 


PRINT  ‘various  socond  surfaces  a  aothod  of  labeling  the  current* 
PRINT  ‘design  surface  has  been  incorporated  into  the  algoritha.* 
PRINT  *  The  prograa  will  ask  you  for  a  curve  nuaber.  At  that* 
PRINT  *ttae,  key  in  any  nuaber  (integer  or  real)  you  uish  to  use* 
PRINT  ‘identify  the  surface.* 

PRINT  LIN<2>, “PRESS  CO  NT" 

PAUSE 

PRINT  PAGE, ‘The  current  values  of  Curve  and  Np  (the  degree* 
PRINT  ‘of  the  positive  branch  x  •  f(y>  >  are:* 

REAS  Curve,Np,Nn,N 

PRINT  LIN(t),*  Curve  •  *1  Curve 

PRINT  "  Np  ■  a * Np 

INPUT  “WHICH  CURVE  ARE  YOu’uSING  (CURVE  No.)  ?*, Curve 

INPUT  *UHAT  IS  THE  DEGREE  OF  THE  POLYNOMIAL  FOR  THE  POSITIVE  8R 

PRINT  L1N(2> 

PRINT  “NOTE:  These  are  the  current  values  of  the  positive 


PRINT 

16368  FOR  1-8  TO  Np 

16378  READ  Apos(I) 

16388  PRINT  USING  16398; I , Apos( I ) 

16398  IMAGE  "Apos("4D">  -  *,K 

16688  NEXT  I 

16618  PRINT 

16628  Zl-Apos(8> 

16638  AnyS-*NONE* 

16648  INPUT  'ARE  YOU  GOING  TO  CHANGE  ANY  OF  ALL  OF  THE  COEFICIENTS  7  SOME^ALL-' 
NONE  * , AnyS 

16638  IF  ( AnyS- ‘HONE* )  OR  (AnyS-*none*>  THEN  None  p 

16668  IF  ( AnyS- *  SOME  * )  OR  (AnyS«*soae*>  THEN  Soae~p 

16678  All _p: PRINT 

16688  PRINT  ‘Please  key  in  the  coeficlents,  beginning  uith  the  constant:* 

16698  FOR  1-8  TO  Np 

16788  INPUT  **,Apoa(t) 

16718  PRINT  USING  16398; I, Apos( 1 > 

16728  NEXT  I 

16738  None at  PRINT 
16748  YS-*N" 

16738  INPUT  *00  YOU  NEED  TO  MAKE  ANY  CORRECTIONS  ?  Y/N",Y9 

16768  IF  (YS-*M*)  OR  (YS-*n*)  THEN  Coef  neg 

16778  Soae_p:  INPUT  *HHAT  IS  THE  NUHIER  OF  THE  CoSPICIEINT  ?  (8,1,2,  etc)*,Npp 

16788  INPUT  “KEY  IN  THE  CORRECT  VALUE,  THEN  CONT* , Apos(Npp) 

16798  PRINT  USING  16398; Npp, Apos(Npp) 

16888  YS-*Y* 

16818  INPUT  *IS  THAT  ALL'.YS 

16828  IF  (YS-*y*)  OR  (YS-“y*>  THEM  Coef  neg 

16838  IF  ( AnyS-"S0ME* )  OR  ( AnyS- • soae *> “THEN  Soae _p 

16848  GOTO  $oae_p 

16838  Coef_neg:  PRINT  PAGE,*The  current  values  of  Curve  and  Nn  (the  degree* 

16868  PRINT  "of  the  negative  branch  x  •  f(-y>  >  are:" 

16878  PRINT  LIN( 1 ) , "  Curve  •  "{ Curve 

16888  PRINT  ’  Nn  ■  *;Nn 

18898  INPUT  "WHAT  IS  THE  DECREE  OF  THE  NEGATIVE  DRANCN  POLYNOMIAL  (Nn) 

?",Hn- 

16988  8uick_loop_n: PRINT  LIN(2) . “NOTE:  These  are  the  current  values  of  the  neg 
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atiwa 

1(919 

1(929 

1(939 

1(949 

1(999 

1(9(9 

1(979 

1(999 

1(999 

HONE  ‘ 

17999 

17919 

17929 

17939 

17949 

17999 

179(9 

17979 

17999 

17999 

17199 

17119 

17129 

17139 

17149 

17199 

171(9 

17179 

17199 

17199 

17299 

17219 

17229 

17239 

17249 

17299 

172(9 

17279 

17299 

17299 

17399 

17319 

17329 

17339 

17349 

17399 

173(9 

17379 

17399 

17399 

17499 

17419 

17429 

17439 

17449 

17499 

174(9 

17479 

17499 

17499 

17999 

17919 

17929 

17939 

1 

17949 


branch  coaf icianta: " 

PRINT 

FOB  1*9  TO  Nn 
DEBS  Anag<I> 

PRINT  USING  1(990; I,Anag<I> 

IMAGE  "Anag< “4B" )  -  *,K 
NEXT  I 
PRINT 

INPUT  "ARE  YOU  GOING  TO  CHANGE  ANY  OF  ALL  OF  THE  COEFICIENTS  ?  SOME'ALL' 

',Anyl  _ 

IF  < Any*»"NQNE“ 1  OR  ( Any*-"nona“  >  THEN  Non«_/> 

IF  <AnyF-“SCME" >  OR  <AnyF*“*oaa“>  THEN  3oaa_n 

-n"  print  -Plaa*a  kay  in  tha  coaficiants,  baginntng  with  tha  constant. 
FOR  1-9  TO  Nn 

INPUT  "",Anag< I > 

PRINT  USING  1(999; I,Anag<I> 

NEXT  I 
Nona_nl  PRINT 

INPUT  "BO  YOU  NEEB  TO  MAKE  ANY  CORRECTIONS  ?  Y/'N",Y t 
IF  <Y#»"N">  OR  <YS«“n“>  THEN  Gyanastic* 

Sob*  ns  INPUT  “HNAT  IS  THE  NUMBER  OF  THE  COEFICISINT  ?  ,Hnn 

~  INPUT  "KEY  IN  THE  CORRECT  VALUE,  THEN  CONT  ,Anao<Nnn> 

PRINT  USING  1(990; Nnn,Anag<Nnn> 

YS-*Y" 

INPUT  "IS  THAT  ALL" , Y* 

IF  <Y*B-y">  OR  <Yf»"y“>  THEN  Gy»na»t1c» 

IF  <Any9-"S0ME">  OR  < Any*B*»oaa* >  THEN  Sona_n 
GOTO  So-a_n 
Gyanast  teas SUBENB 


i 
1 

SUB  Char 

FOR  1-9  TO  79 

IF  1-79  THEN  PRINT  CHR*<228> 

IF  1-79  THEN  17289 
PRINT  CHR*<228>; 

NEXT  I 
SUBENB 

SUB  X2pQ4<X2.Y> 

COR1 INTEGER  I , J, Curva, Np, Nn, M,N», Nr , REAL  Rnag<*> , Apo*<*> , A<a> , 21 , 23, 24 

I 

FOR  I -9  TO  Np 

X2-X2*Apo«< 1 >  *7* I 
NEXT  l 
SUBENB 

SUB  X2nag<X2,Y> 

COR1 INTEGER  I , J, Curwa, Np, Hn, N, M»,Hr , REAL  Anag<*> , Apo»<*> , A<*> , 21 , 23, 24 

i 

FOR  1-9  TO  Nn 

X2-X2*Ana9<I>4YM 
NEXT  I 
SUBENB 

SUB  Indax  P<X,Y> 

OPTION  BASE  9 

COM  INTEGER  I , 3 , Cur va , Np , Nn , N, N* , Nr , REAL  Anag<*>,Apo*<a>, A<a>,21,23,Z4 
COM  Alpha, Talpha,Rho,Trho, Rho_i nit ial ,Trhoi , Phi ,Tol .Nora, Alphas 
COM  Ml , M2 , N3 , Parc ant_i aaga , Ya, Yb, Apart ura , Y_bu 11  at 

COM  INTEGER  Y9_l oop.Nray ,  Add_r*ay,  Surf_no,  FI ag,  FI  ag2, N_t ncraaant , HI t_tot a 
COM  INTEGER  Li naceunt ,Li naaax 
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*  f» 

• -an  ♦ 


4 


c 


i 

i 

S 


( 


17390  con  INTEGER  Paalact.Hpib 
179(0  I 

17970  con  REAL  Nain,Naax,R0  aax 
17900  I 
17300  BEG 

17(00  XaEa.SO'Talpha  I  FROn  y«ax  ♦  b  AND  Yaax  -  1.2 

17(10  Ya2-Xa2«Talpha 

17(20  IF  R0  »ax<SQR<  Xa2~2-*Y«2/'2>  THEN  Ro_nax«SQR<Xa2*2*Ya2-'2> 

17(30  Radiua-SQR<X»2fY'-2> 

17(40  R2*R0  aax-2 

17(30  K-<Naax-Nain>'lt2 
17((0  •»<R*d1u»-R0  aax )  ~2 

17(70  N2«Naax*K«B  ~ 

17(00  SUBENB 

17(90  SUB  tnd«x  e<X,Y) 

17700  OPTION  BASE  0 
17710  I 

17720  COn  INTEGER  I , J, Curva, Np, Nn, N, N», Nr, REAL  Anag<*> , Apoi < *> , A< *> , 21 , 23, 24 
17730  CON  A 1 pha, Ta I pha, Rho , Trho, Rho_i n i t i al , Trhoi , Phi ,Tol , Nora, A1 pha2 
17740  COH  Nl,N2,N3,Parcant  iaaga, YaTYb, Apartura, YJjullat 
17730  I 

177(0  con  INTEGER  Y0_t  oop,  Nray ,  Add_r  ay ,  Surf_no,  FI  ag,  FI  ag2,  N_i  ncraaant ,  Hi  t_t  ot  a 
1 

17770  con  INTEGER  Li nacount , Li naaax 

17700  CON  INTECER  Paalact.Hpib 

17700  i 

17000  CON  REAL  Nain.Naax.R0  aax 
17010  t 
17020  BEG 

17030  XaRa . (0s  Tal pha  I  FROH  y-ax  ♦  b  ANB  Yaax  «  1.2 

17040  Ya2*Xa2»T  al pha 

17090  IF  R0  aax< SQR < Xa2',2+ Ya2A2 )  THEN  Ro_aax-S0R<Xa2-2*Ya2»2) 

170(0  Radiua-S0R<X*2*Y*2> 

17070  A»R0_aax»2 

17000  B*<Radius-RO  aax ) -2 

17090  C2-A-B 

17900  N2*Nain*S0R<C2> 

17910  SUBENB 
17920  SUB  Banal ty 
17930  OPTION  BA8E  0 
17940  I 

17990  can  INTEGER  I , J, Curva, Np, Nn, N, Na. Nr , REAL  Anag< •> , Apos<*> , A(*> ,  21 , 23, 24 
179(0  CON  Alpha,  Tal  pha,  Rho,  Trho,  Rho_ini t i  al  .Trhoi  .Phi  ,Tol ,  Nora,  Alpha2 
17970  COn  HI,  N2.N3,  Par  cam  iaaga,  Ya.Yb,  Apart  ura,Y_b«j  Hat 
17900  I 

17990  con  INTECER  Y0_1 oop, Nray , Add_ray , Surf_no,Fi ag, FI ag2, N_i ncraaant . Hi t_tot a 
1 

10000  CON  INTEGER  Li nacount, Linaaax 

10010  con  INTEGER  Paalact.Hpib 

10020  I 

10030  con  REAL  Na 1 n , Naax , R0_aax 

10040  CON  Ray  traea*,8i  gi  t  i  za*,Grt  nS,G*,Grine*,Pl  ot»,Bata* 

10080  CON  X<a“,Y<a»,Xe<*),N<a>,R<*> 

10000  I 

10070  COH  Rho<*),Phi <*>,C<*>,Y3<a),Hit<*> 

10000  I 


10090  INTEGER  In«,K,L,n,Linaa 
10100  BEG 

10110  I  THIS  ROUTINE  C0HPUTES  THE  RAY  BENBITY  IN  ONE  BINSNSION. 

10120  1  ASBUHPTIONS! 

10130  |  n  THE  POINT  OF  HAXinun  RAY  BENSITY  HAS  BEEN  FOUNB  VIA  A 

10140  •  BIG1TI2E  STATEHENT. 

10190  I  2)  THE  VALUES  OF  Y3  NAVE  NgT  BEEN  CHANCES  TO  REFLECT  THE 

101(0  '  HEM  VALUE  OF  23 

10170  • 

10100  *  PRINTER  IS  1( 


10190  Initial  t*a_S  Nr«-1 
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1UM 

10210  Re  drw: 
10220 
10220 
10240 
10290 
10200 
10270 
10200 
10200 

10300  Positive: 
10310 

10320  Negative: 
X2  FOS/NEG 
10330 

10340  Saae: 
10390 
10300 
10370 

10300  Next  t: 

10390  V3  array: 

10400 

10410 

10420 

10430 

10440  Hit  zero: 

10490 

10400 

10470 

10400 

10490 

10900 

10910 

10920 

10930 

10940 

10990  Next  j: 
109C0 

10970  Hit  atddl 

10990 

10990 

10000 

10010 

10020 

10030 

10040 

10090 

10000 

10070 

10000 

!nc>«l 

10090  Next  k! 

10700 

10710 

10720  Hit  lost: 
10730 
10740 
10790 
10700 
10770 
10700 
10790 
10000 
1 

10010  Next  at 
10020- 

10030  Noraalize 


Hsa-3 

FOR  1*1  TO  Nr  ay 
Nr -Nr *3 
NssNs+9 
A«Xc (I) 

X«X<N»> 

Y«Y<N*> 

Rho»Rho<Nr > 

TrhosTANtRho) 

IF  R<21  THEN  Negative 

IF  Rho»0  THEN  Next  i  !  TOTAL  INTERNAL  REFLECTION  AT  X2F03 
GOTO  Saae 

IF  VO-V  Bullet  THEN  Next  I  !  Y2—Y  bullet  «>THE  RAY  HISSED 


IF  Rho-0  THEN  Next_i  !  TOTAL  INTERNAL  REFLECTION  AT  X2NEC 
Deltay“<23-X)eTrho  ~ 

Y3“Y*Del tay 
X(Nset>*23 
Y<MS41)aY3 
NEXT  I 
J«0 

FOR  1*1  TO  Nr ay 
Y3<J)«Y<9*I-2> 

J«J+1 
NEXT  I 

HAT  Hi t*2ER<2001 >  I  2ER0  THE  ARRAY 

lne«0  I  FIND  THE  No.  OF  HITS  IN  THE 

Ylast— Y_bul  let  I  INTERVAL  t  -Y_BULLET, -Y_BULLET*DELTAx2> 

Delta«Y_bul letxN_inereaent  ~  “ 

Ynext*YTast*Del t ax2 

Htt<lnc)*0 

J*0 

FOR  I-l  TO  Nr ay 

IF  (XcUXZl)  AND  <Y3<3>«0)  THEN  Next_j  I  IGNORES  HEGATIVE 

"  i  jkumcm  rays 

IF  <Y3<J)>*Ylast)  AND  <Y3<  JXYnext  >  THEN  Hi  t < Inc  >-Hi  t  (Inc  XI 
JmJ*\ 

NEXT  I 

e:  !  FIND  THE  Ho.  OF  HITS  IN  THE  INTERVAL 
I  t-Y_BULLET*DELTA'2,  Y_DULLET-DELTAx2> 

FOR  L«l  TO  2eN_increacnt~l 
Inc*lnc»l  ” 

Hi t  < Inc )*0 
Ylast aVnext 
Ynext *Y l ast +De 1 1  a 
K>0 

FOR  1st  TO  Nray 

IF  <Xc< IXZ1 )  AND  < Y3<K>s0>  THEN  Next  k  I  IGNORES 

!  NEGATIVE  IRAN CH  RAYS 
IF  <Y3<K>>»Ylast>  AND  < Y3<KXYnext  >  THEN  Hi t < Inc >"H1 t ( 

K«K4l 
NEXT  I 
NEXT  L 

Ine»2»H  I ne resent  !  FIND  THE  No.  OF  HITS  IN  THE  LAST  INTERVAL 
Hit<Ine>s0  !  C Y  BULLET-DELTA'S >  Y  BULLET] 

Hs0 

Y1astsY__bul  let-Delta^S 
Ynext«Y""bul  let 
FOR  I«1~T0  Hray 

IF  <Xc<IX21>  AND  <Y3tH)s0>  THEN  Next  a  !  IGNORES 

T  NEGATIVE  BRANCH  RAYS 

IF  <Y3<H) >«V1  ast >  AND  <Y3<RXsYnext  >  THEN  Hi t < Irtc )«Ni t < Inc >♦ 


H«H*l 
NEXT  I 
Hit  total*0 


I  N0RHALI2E  THE  No.  OF  HITS  ON  THE 
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19949 

uni 

HIM 

1997# 

19999 

19999 

19999 

19919 

19929 

19939 

19949 

19999 

19999 

19979 

19999 

19999 

19999 

19919 

19929 

19939 

19949 

19999 

19999 

19979 

19999 

19999 

19199 

19119 

19129 

19139 

19149 

19139 

19199 

19179 

19199 

19199 

19299 

19219 

19229 

19239 

19249 

19239 

19299 

19279 

19299 

19299 

19399 

19319 

19329 

19339 

19349 

19339 

19339 

19379 

19399 

19399 

19499 

19419 

19429 

19439 

19449 

19439 

19499 

19479 

19499 

19499 

19399 


909  1 «9  TO  24N_incr#b#nt  !  IMAGE  PLANE 

Hit  tOtafHH  total*Hit<I>  •  No.  OF  HITS 
NEXT  T 


IF  Hit_tot»l«9  THEN  Hon# 

FOR  1*9  TO  2#N_tncr#b#nt 
HI  t  < l >*HI t  < l”/HI t— total 
NEXT  1 

Non#:  Pet*Hlt_total/Nray 

P#r<  #nt”i •*q««Pe t  *  1 99 
Graph:  CALL  Plot 

IF  Hlt_total*9  THEN  Lab#l_ 
First  bar:  xiast*-Y  bull#t 

Xn#xt«Xtast*8#lta/2  !  INTERVAL 
Inc*# 

IF  HI t ( Inc >»9  THEN  Mlddl#_bars 
CLIP  Xla*t,Xn#xt,9,Htt<Ine>- 

FRAME 

G0SU9  0#1t 

Hlddl#  bars:  FOR  l«l  TO  2*N_lner#»#nt-l 


I  IMAGE  PLANE  <23>  TO  THE  TOTAL 


!  X  OF  RAYS  THAT  ARRIVE  AT  THE 
I  IMAGE  PLANE 
■  PLOT  AND  LA1EL  THE  AXES 

!  DRAW  THE  HISTOGRAM 
C-Y_SULLET,  -Y_BULLET*BELTA/2> 


INTERVAL 


Ine*Ine*l  “  I  C-Y_BULLET+BELTA/2,  Y_BULLET-BELTA/2> 

X1ast*Xn#xt 

Xn#xt«Xlast*B#1 ta 

IF  HI t  < Inc  >*9  THEN  H#xt_l_» 

CLIP  Xlast,Xn#xt,9,Hlt<Ine> 

FRAME 

gosui  a# it 

N#xt  I  •:  NEXT  1 

L as t ""bar :  Inc*2*H  lncr#b#nt  ‘  INTERVAL  CY_BULLET-BELTA/2,  Y_BULLET3 
Xlast-Y~buU#t-B#1tax2 
XnoxtoY^bul l#t 

IF  Hlt<Ine>*9  THEN  Lab#l_ 

CLIP  xiast,Xn#xt,9fHit<Ine) 

FRAME 
GOSUB  a# It 
Lab#i  :  LBIR  9 
LORG  2 
I  SETGU 

I  MOVE  2,2 

•  CSI2E  2.3 

I  LABEL  "PRESS  CONT" 

I  SETUU 

CSI2E  13/4.34 
BEEP 

HAIT  239 

BEEP 

PAUSE 

EXIT  GRAPHICS 
SUBEXIT 
a* It:  Ltn#s«19 

B#1 t*<Xn#xt-Xl ast  > /Lines 
X*xia»t-B#lt 
FOR  3*1  TO  Lin«s 
X*X*B#lt 
MOVE  X,9 
BRAU  X,Hlt< Inc > 

NEXT  J 
RETURN 
SUBEHB 
SUB  Pictur# 

Seal#  :  GCLEAR 

PLOTTER  19  13, "GRAPHICS" 

GRAPHICS 

LIMIT  9,194,9,149 
SCALE  -29, 132.4,-33,33 
AXES  3, 3, 9, 9, 19,19 
Lab# I  :  MOVE  29,43 
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19318  LABEL  “THE  PROBLEM" 

19320  HOVE  20,44 

19930  DRAW  30,44 

19940  Draw  body 

:  move  0,0 

19330 

DRAH  74,30 

19900 

DRAU  104,30 

19370 

HOVE  0,0 

19300 

DRAU  74,-30 

19390 

DRAU  104,-30 

19000  Draw  inlet :  MOVE  70,33 

19010 

DRAU  00,30 

19020 

DRAU  104,30 

19030 

MOVE  70,-33 

19040 

DRAU  00,-38 

19090 

DRAU  184,-30 

19000  Second  surf:  MOVE  30. 0 

19070 

DRAU  33,3 

19000 

DRAU  40,9 

19090 

DRAU  43, 13 

19700 

DRAU  30,13 

19710 

DRAH  74,30 

19720 

MOVE  30,0 

19730 

DRAU  33, -3 

19740 

DRAU  40,-9 

19730 

DRAU  43,-13 

19700 

DRAH  30,-13 

19770 

DRAH  74,-30 

19700  Ray:  MOVE 

0,13 

19790  DR  AH 

40,13 

19000  DRAM 

43,13 

19010  DRAM 

184,-14 

19020  laage  plane:  MOVE  00,30 

19030 

LINE  TYPE  4 

19040 

DRAH  00,-30 

19030  Label  picture:  MOVE  03,-30 

19000 

LINE  TYPE  1 

19070 

LABEL  "3r94  CLH 

19000 

MOVE  03,13 

19090 

LABEL  "IMAGE  PLi 

19900 

HOVE  13,2 

19910 

LABEL  "ALPHA" 

19920 

HOVE  10,0 

19930 

DRAH  0,2.3 

19940 

MOVE  3,10 

19980 

LABEL  "INCIDENT 

19900 

HOVE  39,2 

19970 

LABEL  ‘21’ 

19900 

MOVE  33,2 

19990 

DRAU  30,0 

20000 

MOVE  113,2 

20010 

LABEL  ’Me’ 

20020 

MOVE  113,2 

20030 

DRAU  110,0 

20040 

MOVE  02,2 

20030 

LABEL  ’23* 

20000 

HOVE  02,2 

20070 

BRAU  00,0 

20000 

HOVE  130,3 

20090 

LABEL  *C* 

20100 

HOVE  131.3,1.3 

20110 

LABEL  ’L* 

20120 

ROVE  3, -10 

20130 

LABEL  *nl* 

20140 

HOVE  30,-10 

20130 

LABEL  *n2* 

20100' 

HOVE  30,-10 
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29179  LABEL  "n3‘ 

29199  Finished:  MOVE  15,-33 
29199  !  LABEL  ‘PRESS  CONT‘ 

29299  BEEP 

29219  WAIT  259 

29229  BEEP 

29239  MUSE 

29249  EXIT  GRAPHICS 

29259  SUBEND 

292(9  SUB  X2p<X, Y> 

29279  OPTION  BASE  9 

29299  COH  INTEGER  I , J, Curve, Np, Nn, N, Ns, Nr , REAL  Anea<*> , Apos<»> , A<* ) , 21 , 23, 24 

29399  I 

29319  BEG 

29329  FOR  1*9  TO  N 

29339  Y«Y*A<I)*Y-I 

29349  NEXT  I 

29359  SUBENB 

293(9  SUB  X2n<X.Y> 

29370  OPTION  BASE  9  j 

29399  COH  INTEGER  I , J, Curve, Np, Nn, N, Ns, Nr, REAL  AnegC *) , Apo*<*> , A<*> , 21 , 23, 24  | 

29499  I  : 

29419  DEC 

29429  CALL  X2p<X,Y>  j 

29439  Y— 1*Y  l 

29449  SUBEXIT  > 

29450  SUB  nin<Xa<*),X, INTEGER  M> 

294(9  OPTION  BASE  9  :  i 

29470  I 

29499  !  DIN  Xa<n> 

29499  I 

29599  X*Xa<0> 

29519  FOR  1*1  TO  n 

29529  X-ntn<X,Xa<I>> 

29539  NEXT  I 

29549  SUBEND 

29539  SUB  n*x<Xa<*> , X, INTEGER  N) 

295(9  OPTION  BASE  9 

29579  I 

29599  !  DIH  Xa<H> 

29599  I  S 

29(99  X*Xa<9>  J 

29(19  FOR  1*1  TO  H  , 

29(29  X*niN<X, Xa< I >  >  : 

29(39  NEXT  I  ' 

29(49  SUBEND  i 


J 


APPENDIX  C 


POLYNOMIALS  USED  FOR  THE  SECOND  SURFACE 

A.  INTRODUCTION 

The  following  discussion  compares  the  attributes  of  three 
analytic  expressions,  in  polynomial  form,  used  as  second  sur¬ 
faces  for  a  conical  lens.  The  lenses  are  compared  in  terms 
of  the  individual  lens  ability  to  cause  some  or  all  of  the 
incident  light  rays  to  converge  to  a  point.  The  points  of 
ray  convergence  are  referred  to  as  "focal"  points  although 
they  are  not  focal  points  in  the  standard  usage  of  the  term. 
Lens  designers  have  developed  a  system  of  standards  used  as 
figures  of  merit  to  compare  one  lens  to  another.  These 
standards  include  spherical  abberation,  coma,  tilt,  astigma¬ 
tism  and  others.  The  figures  of  merit  have  not  been  calcu¬ 
lated  because  the  three  curves  discussed  in  this  appendix  are 
known  to  be  completely  unsatisfactory  to  use  as  refracting 
surfaces.  The  purpose  of  the  thesis  is  to  discover  which 
properties  of  a  curve  to  investigate  in  order  to  lead  to 
usable  design.  Therefore  an  intuitive  comparison  of  ray 
diagrams,  histograms  of  ray  distributions  and  the  set  of 
basic  design  criteria  described  in  chapter  III  are  the  basis 
for  the  discussion  of  curves  A,  B  and  C  in  this  appendix. 

B .  CURVE  A 

Curve  A,  shown  in  figure  C-l  was  the  first  analytic  ex¬ 
pression  used  as  a  second  surface  to  produce  a  ray  diagram. 


The  curve  was  calculated  by  otaining  the  data  listed  in 
Table  C-l  from  an  arbitrary  hand  drawn  curve.  These  data 
were  used  as  the  input  to  a  regression  analysis  routine  in 
the  HP-9845B  utilities  library.  Since  TRACE  requires  the 
second  surface  to  be  expressed  as  a  polynomial  function  of 
y,  three  curves  were  fit  to  the  data.  Table  C-II  contains 
the  coefficients  for  each  of  the  polynomials.  The  first 
polynomial  relates  the  radial  distance  from  the  GLM  axis  to 
the  distance  along  the  GLM  axis,  i.e.  radius  ■  f  (distance 
along  the  GLM  axis) .  The  remaining  two  are  required  by 
TRACE  for  ray  tracing  and  graphics  purposes.  The  second 
expression  relates  the  distance  along  the  GLM  axis  to  the 
radius  from  the  axis  in  the  upper  half -plane;  i.e.  distance 
along  the  GLM  axis  <■  f (radius) .  The  third  expression  relates 
the  distance  along  the  GLM  axis  to  the  radius  in  the  lower 
half-plane;  i.e.  distance  along  the  GLM  axis  =  f (-radius). 

All  linear  dimensions  are  in  inches. 
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TABLE  C-I 

DATA  POINTS  FOR  CURVE  A 


y  =  f  (x)  *  x  =  f(yl*  x  *  f  (-6)  * 

(Ordinate, Abscissa)  (Ordinate , Abscissa)  (Ordinate, Abscissa) 


0.500,0.00 

0.000,0.500 

0.000,0.500 

0.600,0.069 

0.069,0.600 

-0.069,0.600 

0. 700,0. 138 

0.138,0.700 

-0.138,0.700 

0 . 800,0. 188 

0.188,0.800 

-0.188,0.800 

0.900,0.238 

0.238,0.900 

-0.238,0.900 

1.000,0.281 

0.281,1.000 

-0.281,1.000 

1.500,0.500 

0.500,1.500 

-0.500,1.500 

2.000,0.731 

8.731,2.000 

-0.731,2.000 

2.500,0.938 

0.938,2.500 

-0.938,2.500 

2.900,1.100 

1.100,2.900 

-1.100,2.900 

' :  For  x  = 

distance  along  the  GLM  axis 

and 

y  * 

radial  distance  from  the  GLM 

axis. 
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TABLE  C-II 

POLYNOMIAL  COEFFICIENTS  FOR  CURVE  A 


Coefficient 

Number 

ai  y  -  f  (x)  * 

Positive 

Branch 

x  =  f  Cy)  * 

Negative 

Branch 

x  -  f  t-y)  * 

a 

o 

-0 . 45216186 

0.5003067966 

0.5003067966 

a. 

i 

1.18544/907 

1.15219319 

-1.15219319 

a2 

-0.66358797 

3.0138759 

3.0138759 

a3 

0.25054923 

-3.4182912 

3.4182912 

a4 

-0.034174838 

1.39217781 

1.39217781 

* :  For  x  =  distance  along  the  GLM  axis  and 

y  3  radial  distance  from  the  GLM  axis. 
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A  ray  diagram  using  TRACE,  which  is  shown  in  figure  C-2, 
demonstrates  that  curve  A  has  the  ability  to  focus  some  of 
the  rays  to  a  point  near  the  wall  of  the  GLM  at  a  distance  of 
21.18  inches  along  the  GLM  axis.  Figure  C-3  is  the  histogram 
of  the  ray  distribution  for  figure  C-2  and  shows  a  maximum  at 
1.08  inches.  If  this  distribution  were  rotated  about  the  GLM 
axis,  the  two  dimensional  distribution  would  be  a  set  of 
concentric  rings  centered  on  the  GLM  axis  with  the  most  in¬ 
tense  ring  at  a  radius  of  1.08  inches.  Although  this  ray 
pattern  is  unsatisfactory,  the  fact  that  some  rays  converged 
to  a  focus  was  encouraging. 

The  converging  rays  were  coming  from  the  middle  region  of 
the  curve.  The  slope  of  the  middle  region  of  the  curve  is 
slightly  larger  than  the  slope  of  the  first  surface.  The 
slope  of  the  regions  above  and  below  the  middle  region  have 
slopes  which  are  approximately  the  same  as  and  greater  than 
the  slope  of  the  first  surface  respectively.  The  ability  of 
the  middle  region  to  focus  light  rays  suggested  the  existence 
of  a  range  of  slopes  which  would  cause  convergence  of  light 
rays.  The  light  rays  which  intercept  the  second  surface  in 
the  lower  half-plane  are  totally  internally  reflected  because 
of  the  large  angle  of  incidence.  Total  internal  reflection 
occurs  when  Snell's  Law  sin0R  ■  (n2/n3)  sin6i;  results  in 
sin  R  >  1.  The  critical  angle  of  incidence  6c  is  where 
sin0R  *  1  and  any  angle  greater  than  9c  results  in  total 
internal  reflection.  The  range  appears  to  be  in  a  narrow 
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in  Figuri 


band  with  the  minimum  value  greater  than  the  value  of  the 
cone  angle,  a.  Since  the  curve  is  concave  with  respect  to 
the  first  surface,  the  next  step  of  the  investigation  was  to 
study  curves  with  the  appropriate  slope  comparable  with  curve 
A  and  regions  concave  and  convex  with  respect  to  the  first 
surface.  These  two  criteria  were  the  basis  for  choosing 
curves  B  and  C  for  further  investigation. 

C .  CURVE  B 

Curve  B,  shown  in  figure  04  was  chosen  because  the 
analytical  expression  which  describes  the  curve  exhibits 
^gions  similar  to  those  discussed  for  curve  A.  The  shape 
of  curve  B  is  smooth  with  an  inflection  point  providing 
regions  concave  and  convex  with  respect  to  the  first  surface. 
The  data  used  to  generate  the  analytical  expression  for  the 
curve  are  listed  in  Table  OIII.  Three  analytic  expressions 
were  calculated  as  for  curve  A.  The  coefficients  for  the 
three  polynomials  describing  curve  B  are  listed  in  Table  OIV. 

The  ray  diagram  in  figure  05  demonstrates  the  ability 
of  curve  B  to  cause  some  of  the  light  rays  to  converge  to  a 
"focal"  point.  A  ray  diagram  with  an  image  plane  located  at 
the  point  of  maximum  ray  density  is  shown  in  figure  06.  Al¬ 
though  this  ray  distribution  is  not  satisfactory  the  distri¬ 
bution  of  rays  is  relatively  better  than  the  ray  distribution 
for  curve  A  shown  in  figure  02. 

The  ray  distribution  of  curve  B  is  better  than  that  for 
curve  A  because  the  point  of  ray  convergence  is  closer  to 


TABLE  C-III 


-  'SJ 


DATA  POINTS  FOR  CURVE  B 


1  '  '  "  '  ‘  '  —  ■  ■  .  .  II'  I  .1  I  I  II  .  .  ■  ’  '  '  ■  i 

y  »  f  (x)  *  x  =  f  (yl  *  x»f  (-y)  *  [ 

(Ordinate, Abscissa)  (Ordinate, Abscissa)  (Ordinate, Abscissa) 


1.500,0.000 

0.000,1.500 

0.000,1.500 

1.700,0.075 

0.075,1.700 

-0.075,1.700 

1.900,0.200 

0.200,1.900 

-0.200,1.900 

2. 100,0. 394 

0.394,2.100 

-0.394,2.100 

2.300,0.569 

0.569,2.300 

-0.569,2.300 

2.500,0.744 

0.744,2.500 

-0.744,2.500 

2.700,0.888 

0.888,2.700 

-0.888,2.700 

2.900,1.000 

1.000,2.900 

-1.000,2.900 

For  x  »  distance  along  the  GLM  axis  and 

y  ■  radial  distance  from  the  GLM  axis 
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TABLE  C-IV 

POLYNOMIAL  COEFFICIENTS  FOR  CURVE  B 


Coefficient 

Number 

Positive 

Branch. 

Negative 

Branch 

ai 

y  -  f(xj* 

x  *  f  tyl  * 

x  *  f  (-y)* 

ao 

3.3554752 

1.5193756399 

1.5193756399 

ai 

-5.6849365 

2.279198152 

-2.279198152 

a2 

2.959523 

-2.5230983 

-2.5230983 

a3 

-0. 4412878 

1.63047031 

-1.63047031 

*s  For 

x  »  distance 

along  the  GLM 

axis  and 

y  ■  radial  distance  from  the  GLM  axis. 
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both,  the  lens  and  the  GLM  axis.  The  histogram  for  curve  B  in 
figure  C-7  shows  the  point  of  maximum  ray  density  is  located 
at  a  radius  of  approximately  0.2  inch  from  the  GLM  axis.  The 
point  of  maximum  ray  density  for  curve  A  is  at  a  radius  of 
approximately  1.08  inch  from  the  GLM  axis.  Although  curve  A 
causes  more  of  the  rays  which  strike  the  image  plane  to  focus 
than  curve  B  does,  the  ability  to  achieve  a  short  focal  length 
is  more  desirable  and  therefore  curve  B  is  judged  to  be  better 
than  curve  a.  A  second  factor  which  must  be  taken  into  ac¬ 
count  is  the  fraction  of  rays  transmitted  through  the  lens. 
Curve  A  transmits  84%  (42  of  50)  of  the  incident  rays  through 
the  lens.  Curve  B  transmits  68%  (34  of  50)  of  the  light  rays 
through  the  lens.  The  fraction  of  transmitted  rays  could  be 
increased  by  moving  the  second  surface  forward  and  making  the 
lens  thinner. 

The  ray  diagram  and  histogram  for  curve  B  in  figures  C-6 
and  C-7  reveal  the  absence  of  a  large  number  of  rays  in  the 
lower  half -plane  near  the  lens.  Rotating  the  histogram 
about  the  GLM-axis  would  generate  a  set  of  concentric  rings 
with  the  most  intense  at  a  radius  of  0.2  inch  from  the  GLM 
axis. 

Using  the  ray  diagram  and  histogram  for  curve  A  in  fig¬ 
ures  C-2  and  C-3  as  baseline  design  figures  for  the  GLM  lens 
curve  B  is  judged  to  be  the  superior  curve  of  the  two  due  to 
the  capability  of  curve  B  to  cause  light  rays  to  converge  in 
a  region  relatively  close  to  the  lens  and  near  the  GLM  axis. 
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Figure  C-7.  Histogram  of  the  Ray  Distribution  and  the  Image  Plane 


Curve  A  exhibited  one  convex  region  and  one  focal  point. 

The  rays  intercepting  the  second  surface  in  the  lower  half¬ 
plane  were  totally  internally  reflected  as  they  were  for 
curve  A. 

The  investigation  was  now  directed  to  probe  the  ability 
of  a  convex  surface  to  cause  convergence  of  the  light  rays 
at  a  shorter  distance  along  the  GLM  axis  than  a  concave 
region.  Curve  C  was  chosen  because  the  analytic  expression 
is  a  higher  order  polynomial  with  several  inflection  points. 

D .  CURVE  C 

Curve  C  shown  in  figure  C-8  was  chosen  because  the  higher 
order  polynomial  contains  several  inflection  points.  The 
inflection  points  provide  regions  of  concave  and  convex  sur¬ 
faces.  If  the  results  for  curve  B  are  valid  then  curve  C 
should  cause  rays  to  converge  to  several  focal  points,  one 
for  each  convex  region.  The  data  points  for  curve  C  listed 
in  Table  C-V  were  obtained  and  the  polynomial  coefficients 
in  Table  C-VI  were  generated  in  the  same  manner  as  for  curve 
A. 

The  ray  diagram  in  figure  C-9  show  two  distinct  areas 
where  rays  exiting  the  lens  from  a  convex  region  converge. 

The  focal  points  possess  the  same  characteristics  as  those 
of  curve  B.  The  focal  points  are  located  in  a  region  close 
to  the  lens  and  are  formed  from  rays  emerging  from  a  convex 
portion  of  the  surface.  Light  rays  refracted  from  concave 
regions  of  the  lens  do  cross  other  light  rays,  but  do  not 
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TABLE  C-V 

DATA  POINTS  FOR  CURVE  C 

y  *  f(x)*  x  ■  f(y)*  x  »  f(-y)* 

(Ordinate ,Abscissa)  (Ordinate, Abscissa)  (Ordinate /Abscissa) 


2 .000,0.00 

0.000,2.000 

0.000,2.000 

2 . 100,0.081 

0.081,2.100 

-0.081,2.100 

2 . 200,0. 175 

0.175,2.200 

-0.175,2.200 

2.300,0.244 

0.244,2.300 

-0.244,2.300 

2 . 400,0. 331 

0.331,2.400 

-0.331,2.400 

2.500,0.500 

0.500,2.500 

-0.500,2.500 

2.600,0.600 

0.600,2.600 

-0.600,2.600 

2.700,0.612 

0.612,2.700 

-0.612,2.700 

2.800,0.744 

0.744,2.800 

-0.744,2.800 

2.850,0.8125 

0.8125,2.850 

-0.8125,2.850 

2.900,1.000 

1.000,2.900 

-1.000,2.900 

* :  For  x  =  distance  along  the  GLM  axis  and 

y  =  radial  distance  from  the  GLM  axis. 
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TABLE  C-VI 


POLYNOMIAL  COEFFICIENTS 


Coefficient  Positive 


Number  Branch 


ai 

y  *  f(x)* 

x  *  f  (y)  * 

ao 

-11.205773 

2.003622364 

al 

13.18159 

0.30397 

a2 

-5.328168 

12.96206 

a3 

0.767801 

-62.1508 

a4 

0.00 

125.7966 

a5 

0.00 

-114.0765 

a6 

0.00 

38.06104 

* :  For  x  »  distance  along  the 
y  ■  radial  distance  fn 


CURVE  C 


Negative 
Branch 
x  »  f(-y)* 


2.003622364 

-0.30397 

12.96206 

62.1508 

125.7966 

114.0765 

38.06104 

M  axis  and 
the  GLM  axis. 


converge  as  a  group  as  do  the  light  rays  from  the  convex 
regions. 

Comparing  the  focal  points  caused  by  curve  C  shown  in 
figures  C-10  and  11  with  figure  C-l  for  curve  A  shows  that 
the  focal  point  caused  by  curve  A  is  located  at  a  point  21.18 
inches  along  the  GLM  axis  and  at  a  radius  of  -1.08  inches 
(21.18,  -  1.08)  inches.  The  focal  points  for  curve  C  are 
positioned  at  approximately  (3.46,  -0.25)  inches  and  (3.25, 
0.54)  inches.  If  the  histogram  in  figure  C-12,  drawn  for 
the  image  plane  in  figure  C-10  was  rotated  about  the  GLM  axis 
a  set  of  concentric  rings  would  be  formed.  The  most  intense 
rings  would  be  located  at  radii  of  0.25,  0.34  and  0.44  inch. 
Rotating  the  histogram  in  figure  C-l 3  drawn  for  the  image 
plane  in  figure  C-ll  would  produce  a  similar  set  of  rings, 
the  most  intense  located  at  radii  of  0.16  and  0.54  inch. 
Comparing  the  number  of  rays  transmitted  reveals  curve  A 
transmits  84%  (42  of  50)  of  the  incident  rays  and  curve  C 
transmits  58%  (29  of  50)  of  the  incident  rays.  However, 
since  curve  C  causes  light  rays  to  converge  in  a  region 
closer  to  the  lens  them  does  curve  A,  curve  C  is  judged  to 
be  better  than  curve  A.  Also,  all  but  one  ray  which  inter¬ 
cepted  the  second  surface  of  the  lens  using  curve  C  in  the 
lower  half-plane  experienced  total  internal  reflection  at 
the  second  surface. 
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E .  CONCLUSIONS 


Three  conclusions  are  drawn  from  the  comparison  of  curves 
A,  B  and  C.  First,  a  range  of  slopes  for  the  second  surface 
exists  which  will  enable  the  second  surface  to  refract  light 
to  a  focal  point.  The  ray  diagrams  for  curve  A,  B  and  C 
shown  in  figures  C-2,  C-5  and  C-9  illustrate  this  relation¬ 
ship  as  well  as  the  fact  the  rays  which  intercepted  the 
second  surface  in  the  lower  half-plane  were  almost  all  total¬ 
ly  internally  reflected.  The  relationship  between  the  slopes 
of  the  first  surface  tana  and  the  second  surface  tana2 
is  shown  in  figure  C-14.  Rays  are  refracted  in  the  region 
where  02  >  the  functional  value  for  a  given  index  of  refrac¬ 
tion;  rays  experience  total  internal  reflection  when  a2  < 
the  functional  value  for  a  given  index  of  refraction.  The 
second  conclusion  is  that  a  second  surface  which  is  convex 
with  respect  to  the  first  surface  causes  light  rays  to  con¬ 
verge  in  a  region  much  closer  to  the  lens  them  a  concave  lens. 
The  third  conclusion  is  that  a  single  polynomial  used  to 
describe  the  second  surface  of  a  lens  does  not  satisfactorily 
refract  rays  to  a  focus.  CHART  calculated  surface  D  shown 
in  figure  C-15  for  eleven  rays.  This  is  surface  number  one, 
illustrated  in  figure  17.  A  parabola  was  fitted  to  the  eleven 
points  using  the  HP-9845B  Utilities  Package.  The  fit  appears 
to  be  quite  good,  especially  when  figure  C-15  is  conpared  to 
figure  17.  However,  when  50  rays  are  traced  through  the  lens 
the  ray  diagram  in  figure  C-15  is  the  result.  The  associated 
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histogram  in  figure  C-16  shows  the  ray  distribution  on  the 

image  plane  at  the  design  focal  point  of  4.00  inches.  | 
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APPENDIX  D 


THE  USE  OF  A  GENERAL  BLOCK  OF  MATERIAL  AS  A  LENS 


LCDR  C.L.  Burmaster,  Naval  Postgraduate  School,  suggested 
the  use  of  a  rhombus  shown  in  figure  D-l  as  a  refracting  lens 
because  this  type  of  lens  should  transmit  light  without  aber¬ 
ration.  The  following  discussion  applies  Snell's  Law  to  this 
lens  with  the  following  boundary  conditions: 

1)  Side  ©  is  parallel  to  side  0 . 

2)  Side  is  parallel  to  side  0  and  symmetrical  to 
the  GLM  axis. 

3)  The  ray  in  medium  3  is  parallel  to  the  incident  ray 
in  medium  1. 

4)  the  index  of  refraction  of  the  lens  is  related  to  the 
indices  of  media  1  and  2  in  the  following  manner: 

nj^  <  n2  and  n2  >  n^ 


The  incident  ray  in  medium  1  makes  an  angle  of  incidence 


Sj  with  n^  the  normal  to  the  first  surface.  The  ray  is 

refracted  into  the  lens  at  an  angle  of  refraction,  0D  with 

R1 

respect  to  n,  according  to  the  relation  sin0  **  (n./n_)  sin0T 

1  4  J. 

Snell's  Law.  The  ray  traverses  the  lens  and  forms  the  angle 
of  incidence  0_  with  the  normal  to  surface  4.  The  ray 


is  refracted  according  to  sin 6 


R  -  (n3/n2)sin0I  noting 
k4  a4 


that  since  surface  ©  is  parallel  to  surface  ©  ,  nx  is 
parallel  to  n^  and  therefore  0j  ■  0R  .  Since  the  ray  in 


0T  -  0 
T4  “1 

medium  3  is  parallel  to  the  incident  ray  in  medium  1  0 


and  applying  Snell's  Law  at  surface  number  1 
n2 

sin0T  =  —  sin0D 

1  nl  R1 

and  again  at  surface  number  4 
n2 

sin0_  =  —  sin0T 

R4  n3  I4 

therefore  equating  0T  and  0R 


therefore  n^  »  n^. 

The  conclusion  for  this  lens  is  that  the  indices  of  refrac¬ 
tion  for  media  1  and  3  must  be  equal.  The  lens  causes  inver¬ 
sion  of  the  image  because  the  rays  are  incident  in  the  upper 
half -plane  and  exit  in  the  lower  half-plane. 

A  more  general  lens  is  shown  in  figure  D-2  which  does  not 
have  boundary  conditions  1)  and  2)  above.  All  other  boundary 
conditions  apply  and  in  addition  the  lens  is  symmetric  about 
the  GLM  axis. 

The  incident  ray  in  medium  1  forms  an  angle  of  incidence 
0j  with  ,  the  normal  to  surface  0  .  The  ray  is  refrac¬ 
ted  according  to  sin0o  *  (n./n-) sin0T  and  traverses  the 

Ri  1  2  *1 

medium,  forming  the  angle  of  incidence  0-  with  n, ,  the 

X4  4 

normal  to  surface  0 .  The  ray  is  refracted  into  medium  3 

according  to  sin0R  *  (n2/n^) sin6r  parallel  to  the  incident 

4  4 

ray  in  medium  1.  Noting  the  angular  relationship  between  £, 
and  n4  in  figure  D-3  such  that  03  -  02  +  6  and  5  ■  o  -  y, 
then  0^  -  a  -  y  where  a  and  y  are  the  angles  of  sides 


0 
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c 


©  and  0  with  the  GLM  axis,  respectively. 


Now  0 

Hence  0 


R4  *  ?  "  Y 


R4  *  i  -  (“  -  Y> 


Similarly  0T  =  0_  +  6  *  0B  +  a  -  y 
I4  R1  R1 

From  Snell's  Law  applied  at  side  0  is 


“2 

sin0_  *  — =-  sin0_  . 

«4  n3  a4 


Noting  that  0 


z  *  0R+5,6*a-y  and  Y  35  \  0R 

a4  1  R4 

sin0R .  -  ht  sin(0R.  +  a  +  0r  -  r> 

4  3  1  4 

Simplifying  by  trigonometric  expansions  for  sine  and  cosine 
yields 


tan0T 


n3  +  n2  sin(0 


+  a)' 


n,cos  ( 0_  +  a) 

i  R1 


(D-l) 


with  »  arcsin  £  jji-  sin0x  j  . 


Equation  (D-l)  is  a  necessary  but  not  sufficient  condition 
for  the  ray  in  medium  3  to  emerge  from  surface  4  parallel  to 
to  the  incident  ray  in  medium  1.  The  final  condition  relates 


the  angles  of  surfaces  (X)  and  0  and  01 


0_  +5  as 


shown  in  figure  D-3. 


O 
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Applying  Snell's  Law  at  surface  (7)  and  using  trigonometric 
expansions  yields 


tany 


(D-2) 


/n2  sin(6Ri  +  a)  -  n3\ 
y  n2  cos(0R  +  a)  / 

with  0R  »  arcsin  £  (n2/n^)sin0I  j  . 

With  equations  (D-l)  and  (D-2)  rearranged  to  relate  the 
tan(0R  +  a)  as  the  independent  variable  the  equations 
become  tan(0_  +  a)  *  - (tan0_  +  n3  )  (D-3) 

R1  V  R4  57/ 


and 


tan(0R  +  a) 


‘  (coS'(dR '+  a)  +  tan6) 


(D— 4) 


Since  equation  (D-3)  equals  equation  (D-4)  and  solving  for 
tany  yields 


n. 


tam,  -  tane^  ♦  *  a)  +  5J 


(D-5) 


With  the  condition  that  y  +  0 


R  -  j  and  noting  that 


-a,  6  -  a  -  y  and  0 


I  *  9r  +  6 
I4  R1 


■  arcsin 


[- 
L  n. 


sin  (tt  -  a) 

I 


] 


and 


arcsin 


[sj  •in(\  +  0  -  Y)] 
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Equation  (0-5)  is  recognized  as  a  transcendental  equation 
of  the  form 


tany  *  tan<arcsin 


( 


ln[sf  3in(6Rl+  0,-Y)]} 


n3  n3 

+  cos (0R  +  a) +  nj 


which  must  be  solved  iteratively.  The  constraints  on  the 


solution  are  that  (0_  +  a)  < 


and 


(n3/n2)  sin(0R  +  a  +  y)  <  1  and  0R  +  y  -  j  . 


The  appearance  of  the  configuration  of  this  lens  in 
3-dimensions  would  be  two  cones  fit  base  to  base.  The 
image  formed  would  be  inverted  with  the  center  missing; 
i.e.  an  annulus.  Therefore  a  substantial  amount  of  energy 
could  be  lost  in  the  image  if  the  energy  distribution  of 
the  object  is  Gaussian  with  the  maximum  at  the  center  of 
the  object.  Therefore  equations  (D— 1)  and  (D-6)  are  neces¬ 
sary  and  sufficient  conditions  to  insure  the  incident  ray 
in  medium  1  is  parallel  to  the  exit  ray  in  medium  3.  If  the 

condition  that  0O  *  0T  then  the  general  lens  reduces  to 

R2  Z1 

the  rhombus  of  figure  0-1,  or  that  of  a  parallelopiped  in 


figure  0-4.  The  position  a  block  lens  would  occupy  in  the 
GLM  is  3hown  in  figure  0-5. 


APPENDIX  E 


GRADIENT  INDEX  OPTICS 

The  development  of  material  which  exhibits  a  continuous 
change  in  the  optical  index  of  refraction  over  distance  has 
opened  a  new  area  in  the  field  of  optics.  Gradient  index 
CGRIN)  material  has  been  applied  in  the  field  of  fiber  optics 
communications  and  integrated  circuits  with  expanding  numbers 
of  applications.  GRIN  has  the  effect  of  replacing  individual 
lenses  in  an  optical  system.  Theoretically  GRIN  material  has 
the  ability  to  refract  light  because  of  the  continuous  change 
in  index  of  refraction  in  the  medium.  Practically  the  amount 
of  refraction  is  proportional  to  the  change  in  the  relative 
index  from  macroscopic  region  to  macroscopic  region. 

GRIN  material  is  produced  with  one  of  three  types  of 
gradients  in  the  index  of  refraction  referenced  to  the  opti¬ 
cal  axis: 

1.  Axial 

2 .  Cylindrical 

3 .  Spherical 

Axial  GRIN  varies  the  index  of  refraction  along  the  optical 
axis.  Cylindrical  GRIN  varies  the  index  of  refraction 
radially  from  the  optical  axis.  Hence,  in  three  dimensions 
the  surfaces  of  constant  index  form  concentric  cylinders 
centered  on  the  optical  axis.  Spherical  GRIN  varies  the 
index  of  refraction  radially  from  the  origin.  The  surfaces 
of  constant  index  form  a  set  of  concentric  spheres  [8]. 


Born  and  Wolf  [9]  discuss  the  general  properties  of  light 
rays  in  GRIN  material  with  spherical  symmetry.  The  trajec¬ 
tory  of  the  light  ray  is  described  by  Bouguer's  relation, 
ndsin<J>  ■  constant,  where  <p  is  the  angle  between  the  posi¬ 
tion  vector  ?  and  the  tangent  at  point  P  as  shown  in  figure 
E— 1  and  is  illustrated  inside  the  GLM  lens  in  figure  E-2. 

For  two  dimensions  using  polar  coordinates,  the  angle  cam 
describe  explicitly  as 


2  2  2 

where  dr/de  »  (r/c)  \/n  r  -  c  ;  0  is  the 
angle  between  two  consecutive  radii  and  c  is  Bouguer's 
constant.  In  three  dimensions  using  spherical  coordinates 
the  relation  for  the  change  in  0,  illustrated  in  figure 
E-3 ,  over  a  range  of  radius  is  given  by 


(E-2) 


Given  a  sphere  of  GRIN  material  shown  in  figure  E-4  with 
a  spherical  gradient,  a  GLM  lens  can  be  selectively  cut  from 
the  material.  The  lens  can  be  customized  with  an  index  of 
refraction  profile  suitable  for  the  application.  A  possible 
profile  for  the  GLM  conical  lens,  is  shown  in  figure  E-5, 
with  a  minimum  and  maximum  located  at  a  specific  radius  from 
the  origin.  Hence  the  ability  to  customize  the  GLM  lens 
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.on  of  the  Relationship  Between 
Between  Adjacent  Rays  in  the 


enables  the  lens  designer  to  place  the  maximum  value  of  the 
index  of  refraction  at  the  desired  location.  The  profile 
shown  in  figure  E-5  can  be  applied  to  the  GLM  conical  lens 
with  the  index  profile  varying  along  the  first  surface  shown 
in  figure  E-6. 

Bouguer's  constant,  defined  by  the  relation  nrsin$  =  c 
is  a  function  of  the  radius,  index  of  refraction  at  that 
radius  and  the  angle  $  defined  earlier.  However,  once  the 
ray  enters  the  GRIN  medium,  the  constant  is  invariant  along 
the  ray.  Therefore  the  constant  can  theoretically  be  deter¬ 
mined  explicitly  at  any  point.  Practically,  two  points 
exist  at  which  the  constant  can  be  determined.  These  are 
at  the  intercept  of  the  incident  ray  and  the  first  surface 
and  the  intercept  of  the  ray  in  the  conical  lens  and  the 
second  surface.  The  most  convenient  position  to  calculate 
c  is  the  first  surface  because  n,  r  and  $  can  all  be 
determined  explicitly  on  the  first  surface.  Table  E-I  is 
a  tabulation  of  values  of  Bouguer's  constant  c.  Figure  E-7 
shows  the  relationship  between  the  constant  c  and  the 
radius  from  the  origin  along  the  first  surface  of  the  GLM. 

Calculating  the  ray  paths  through  a  conical  lens  composed 
of  GRIN  material  must  be  accomplished  by  solving  equation 
(E-2)  at  each  point  in  the  lens.  A  complete  algorithm  was 
not  written  because  of  the  time  constraints,  but  TRACE  can 
calculate  the  value  of  Bouguer's  constant  and  refract  the  ray 
at  the  first  surface  shown  in  figure  E-8  using  the  value  of 


TABLE  E-I 


*  .  ,  V 


BOUGUER'S  GRIN  CONSTANT 


t  nC  I  ) 


r  <  I ) 


Pht  < I > 


$in«.Phi  ) 


C’  I ) 


1 

2.4406 

.0614 

67.3096 

.9239 

.  1384 

2 

2.6170 

.  1228 

69.0997 

.9342 

.  3802 

3 

2.7481 

.  1842 

70. 1402 

.9403 

.4760 

4 

2.8331 

.2436 

78.9137 

.9430 

.6623 

3 

2.9461 

.3069 

71.3231 

.9483 

.3377 

6 

3.0234 

.3603 

72.0263 

.9312 

1 . 0600 

7 

3.0936 

.4297 

72.4472 

.  9534 

1 . 2683 

a 

3. 1583 

.4911 

72.8067 

.9333 

1.4818 

9 

3.2147 

.5323 

73.1174 

.9369 

1.6996 

le 

3.2636 

.6139 

73.3882 

.9383 

1.9210 

it 

3.3116 

.6733 

73.6238 

.9394 

2.1436 

12 

3.3334 

.7367 

73.8332 

.9603 

2. 3727 

13 

3.3911 

.7901 

74.8200 

.9614 

2.6017 

14 

3.4232 

.8393 

74. 1834 

.9621 

2.3  324 

13 

3.4360 

.9208 

74.3277 

.9628 

3.0641 

16 

3.4833 

.9822 

74.4349 

.9634 

3.2963 

17 

3.3081 

1.0436 

74.3664 

.9639 

3.5291 

18 

3.3298 

1.1030 

74.6637 

.9644 

3.7616 

19 

3.3488 

1.1664 

74.7477 

.9648 

3.9935 

20 

3.3631 

1.2278 

74.0193 

.9631 

4.2243 

21 

3.3789 

1.2892 

74.8792 

.9634 

4.4341 

22 

3.3902 

1 . 3306 

74.9279 

.9636 

4.6320 

23 

3.3991 

1.4120 

74.9659 

.9638 

4.9073 

24 

3.6033 

1.4733 

74.9933 

.9639 

!.  1310 

23 

3.6096 

1.3347 

73.0109 

.9660 

5. 3314 

26 

3.6114 

1.3961 

73.0184 

.9668 

5.3683 

27 

3.6108 

1.6373 

73.0139 

.9660 

5.7315 

28 

3.6079 

1.7189 

73.0834 

.9639 

5.9904 

29 

3.6026 

1.7803 

74.9809 

.9638 

6 . 1 946 

30 

3.3949 

1.8417 

74.9482 

.9637 

6. 3936 

31 

3.3849 

1.9031 

74.9049 

.9633 

6.5369 

32 

3.3723 

1.9643 

74.8306 

.9632 

6.7738 

33 

3.3373 

2.0239 

74. 7030 

.9649 

6. 9539 

34 

3.3396 

2.0072 

74.7073 

.9646 

7. 1265 

33 

3.3193 

2. 1486 

74.6168 

.9642 

7.2908 

36 

3.4962 

2.2100 

74.3123 

.9637 

7. 4461 

37 

3.4701 

2.2714 

74.3933 

.9631 

7. 3913 

30 

3.4418 

2.3328 

74.2378 

.9623 

7.  7261 

39 

3.4006 

2.3942 

74.1042 

.9618 

7.3488 

40 

3.3727 

2.4336 

73.9304 

.9609 

7.9583 

41 

3.3330 

2.3170 

73.7338 

.9600 

3.0333 

42 

3.2092 

2.3704 

73.3100 

.9509 

8. 1319 

43 

3.2408 

2.6397 

73.2373 

.9376 

3. 1921 

44 

3.1072 

2.7011 

72.9673 

.9361 

8.2313 

43 

3.1278 

2.7623 

72.6337 

.9344 

3.2467 

46 

3.0613 

2.8239 

72.2434 

.9524 

8.2337 

47 

2.9870 

2.8833 

71.7073 

.9499 

3. 1367 

40 

2.9022 

2.9467 

71.2337 

.9468 

8.0973 

49 

2.8039 

3.0001 

70.3319 

.9429 

7.9332 

30 

2.6064 

3.0693 

69.6639 

.9377 

7.7317 

262 


TABLE  E-II  - 


INITIAL  PARAMETER  VALUES 


RHO(INITIAL)  •  9. 80  d«gr««a 

TAN(RHO-INITIAL)  •  0.00 


Main  •  2.00000 


Alpha  *  21.00  d*gr*as 

Tan(Alpha)  ■  .33 

n3  ■  1.00000 


n2<  1  ) 

a 

2.44494 

n2(2) 

* 

2.62297 

n2(3> 

a 

2.73322 

r)2(  4) 

a 

2.86301 

n2<3> 

a 

2. 93463 

n2(6> 

a 

3.93443 

r>2(?) 

a 

3. 10497 

n2<  8  > 

a 

3. 16790 

r>2(9) 

a 

3.22441 

n 2(10) 

a 

3.27333 

nMl) 

a 

3.32137 

n2< 12) 

a 

3. 36296 

r)2(  13) 

a 

3.40031 

n2< 14) 

a 

3.43436 

r)2  (  13) 

a 

3. 46474 

n2( 16) 

a 

3.49189 

f)2(  17) 

a 

3.31596 

r)2(  18) 

a 

3.53710 

n2( 19) 

a 

3.33343 

n2<20) 

a 

3.37106 

r)2(21  ) 

a 

3.38406 

•)2(22) 

m 

3.39449 

n2(23) 

a 

3.60241 

n2(24) 

a 

3.60783 

n2(23) 

a 

3.61083 

n2(26) 

a 

3.61138 

r)2(27> 

a 

3.60949 

r>2<28) 

a 

3.60316 

n2<29) 

a 

3.39836 

i)2(30) 

a 

3.38907 

n2<  31 ) 

a 

3.37723 

»2(32) 

a 

3.36280 

n2(33) 

a 

3.34369 

n2(34) 

a 

3.32382 

n2(33) 

a 

3.30309 

n2(36) 

a 

3.47733 

n2<  37) 

a 

3.44843 

n2(38) 

a 

3.41619 

i)2(39) 

a 

3.38033 

i)2(40> 

a 

3.34060 

i)2(41) 

a 

3.29663 

n2(42) 

a 

3.24798 

«2(43) 

a 

3.19407 

1)2(44) 

a 

3. 13413 

1)2(43) 

a 

3.06722 

n2<46) 

a 

2.99183 

r)2(47) 

a 

2.90393 

1)2(48) 

a 

2.80612 

n2(49) 

a 

2.68633 

f)2(30) 

a 

2.68633 

n2(3l) 

a 

0.00000 

R0  aax  ■  1.61147  Inch** 


Apartur*  •  1.100 

Nuab«r  of  Raya  •  30 


I'm  •  0.000  ineh 


o 
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TABLE  E-III 


**>  ■  ,:V 

-.Mr#  *-  ’S.'.U  "<• 

rrir  ■  in  i  ■  m  ■  im 


RAT  DIAGRAM  DATA  CALCULATED  FOR  FIGURE  E-8 


,£ 

$ 

l 


<xo 

,  Y0> 

iXl 

.YlJ 

<X3, Y3> 

CXc.Yc) 

N2 

RHC 

0.00 

.02 

.06 

.02 

4.06  -4.20 

.08 

0.00 

2.44 

-46.31 

o.oe 

.04 

.  u 

.04 

3.96  -4.24 

.13 

0.00 

2.62 

-48.  10 

0.00 

.  07 

.  17 

.07 

3.91  -4.26 

.23 

0.00 

2.73 

-49. 14 

e.oe 

.09 

.23 

.09 

3.89  -4.26 

.30 

0.00 

2.86 

-49 . 9 1 

o.oe 

.11 

.29 

.  1  X 

3.39  -4.26 

.38 

0.00 

2.93 

-30. 33 

o.oe 

.  13 

.  34 

.  13 

3.90  -4.26 

.43 

0.00 

3.03 

-31.03 

0.00 

.  13 

.40 

.  13 

3.92  -4.26 

.32 

0.00 

3.  10 

-31.43 

0.00 

.  IS 

.46 

.  13 

3.94  -4.23 

.60 

0.00 

3.  16 

-31.31 

0.00 

.20 

.32 

.20 

3.97  -4.24 

.67 

0.00 

3.21 

-32.  12 

0.00 

.22 

.37 

.22 

4.00  -4.22 

.  74 

0.00 

3.27 

-32. 39 

0.00 

.24 

.63 

.24 

4.03  -4.21 

.32 

0.00 

3.31 

-32.63 

0.00 

.26 

.69 

.26 

4.07  -4.20 

.89 

0.00 

3.33 

-32.34 

0.00 

.29 

.73 

.29 

4.11  -4.18 

.96 

0.00 

3.39 

-33.02 

0.00 

.31 

.80 

.31 

4.13  -4. 16 

1.03 

8.00 

3.  43 

-33. 18 

0.00 

.33 

.86 

.33 

4.  19  -4. 13 

1.11 

0.00 

3.46 

-33.23 

0.00 

.33 

.92 

.33 

4.24  -4.  13 

1.18 

0.00 

3.  48 

-33.43 

0.00 

.37 

.97 

.37 

4.29  -4.  11 

1.23 

0.00 

3.31 

-33.37 

0.00 

.40 

1.03 

.40 

4.33  -4.09 

1.32 

0.00 

3.33 

-33 . oo 

0.00 

.42 

1.89 

.42 

4.38  -4.08 

1.40 

0.00 

3.33 

-32.73 

0.00 

.44 

1.13 

.44 

4.43  -4.06 

1.47 

0.00 

3.37 

-33.32 

0.00 

.46 

1.20 

.46 

4.49  -4.04 

1.34 

0.80 

3.38 

-33.88 

0.00 

.40 

1.26 

.48 

4.34  -4.02 

1.61 

0.00 

3.39 

-33. >3 

0.00 

.31 

1.32 

.31 

4.39  -4.00 

1.69 

0.00 

3.60 

-33.97 

0.00 

.33 

1.38 

.33 

4.63  -3.97 

1.76 

0.00 

3.61 

-33.99 

0.00 

.33 

1.43 

.33 

4.70  -3.95 

1.83 

0.  00 

3.61 

-34.01 

0.00 

.37 

1.49 

.37 

4.76  -3.93 

1.91 

0.00 

3.61 

-34.02 

0.00 

.39 

1.33 

.39 

4.82  -3.91 

1.98 

0.00 

3.61 

-34.02 

0.00 

.62 

1.68 

.62 

4.88  -3.89 

2.05 

0.00 

3.61 

-34.00 

0.00 

.64 

1.66 

.64 

4.93  -3.86 

2.13 

0.  00 

3.60 

-33.98 

0.00 

.66 

1.72 

.66 

3.00  -3.34 

2.20 

0.00 

3.39 

-33.93 

0.00 

.68 

1.78 

.68 

3.06  -3.32 

2.27 

0.00 

3.38 

-33.90 

0.00 

.70 

1.33 

.70 

3.12  -3.79 

2.33 

0.00 

3.37 

-33.83 

0.00 

.73 

1.89 

.73 

3.18  -3.77 

2.42 

0.00 

3.36 

-33.73 

0.00 

.73 

1.93 

.73 

3.23  -3.74 

2.30 

0.00 

3.34 

-33.71 

0.00 

.77 

2.01 

.77 

3.31  -3.72 

2.37 

0.00 

3.32 

-33.62 

0.00 

.79 

2.06 

.79 

3.38  -3.69 

2.63 

0.00 

3.30 

-33.51 

0.00 

.81 

2.12 

.81 

3.43  -3.67 

2.73 

0.00 

3.47 

-33.39 

0.00 

.04 

2. 10 

.34 

3.32  -3.64 

2.30 

0.00 

3.44 

-33.26 

0.00 

.86 

2.24 

.86 

3.39  -3.61 

2.88 

0.00 

3.41 

-33.  10 

0.00 

.88 

2.29 

.83 

3.66  -3.30 

2.96 

0.00 

3.37 

-32.93 

0.00 

.90 

2.33 

.90 

3.74  -3.33 

3.04 

o.oe 

3.33 

-32.73 

0.00 
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APPENDIX  F 


SEClND  SURFACE  GENERATION:  ITERATIVE  SOLUTION 

A.  INTRODUCTION 

One  of  the  conclusions  reached  as  a  result  of  the  investi¬ 
gation  of  curves  A,  B  and  C  in  Appendix  C  was  that  using  a 
single  polynomial  to  describe  the  second  surface  of  a  conical 
lens  cannot  satisfactorily  refract  light  to  a  single,  distinct 
focal  point.  Hence,  a  satisfactory  image  of  an  object  cannot 
be  formed. 

Three  options  for  further  study  remained.  First,  continue 
to  try  and  find  a  suitable  polynomial  to  describe  the  second 
surface.  This  option  was  not  pursued  because  of  the  infinite 
number  of  trials  which  would  be  required  to  determine  if  such 
am  analytic  expression  existed.  The  second  option  would  be 
to  attempt  to  optimize  a  given  polynomial  by  manipulating  the 
coefficients  of  that  polynomial  to  change  the  refracting  prop¬ 
erties  of  the  polynomial  such  that  a  single,  distinct  focal 
point  could  be  formed.  This  option  was  pursued  by  using 
Control  Program  for  Engineering  Synthesis  (COPES)  developed 
by  Dr.  G.N.  Vamderplaats,  Naval  Postgraduate  School.  The 
study  was  halted  because  of  time  constraints.  However,  ini¬ 
tial  results  concurred  with  the  previously  mentioned  results 
of  Appendix  C. 

The  third  option  was  provided  by  an  inquiry  made  by  Dr. 
E.C.  Crittenden,  Naval  Postgraduate  School,  concerning 
the  capability  of  the  TRACE  program  to  draw  rays  backward; 
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i.e.  could  TRACE  begin  a  set  of  light  rays  at  a  design  focal 
point  and  draw  them  through  the  lens  and  into  the  medium 
ahead  of  the  lens  and  emerging  parallel  to  the  GLM  axis? 
Accomplishing  the  "backwards"  ray  trace  would  design  the 
lens.  Conceptually,  at  least  two  methods  of  generating  the 
second  surface  of  a  conical  lens  exist  and  are  available  for 
investigation.  The  first  method  consisted  of  picking  the 
initial  point  of  the  second  surface  to  be  the  GLM  axis- 
intercept  of  a  refracted  ray  in  the  lens  medium,  noting  that 
the  ray  must  be  refracted  along  the  GLM  axis  to  pass  through 
the  axis.  Therefore,  the  slope  of  the  second  surface  at  the 
first  point  must  be  equal  to  the  slope  of  the  first  surface. 
The  derivation  of  this  relationship  is  performed  in  Appendix 
A.  The  second  point  on  the  surface  is  calculated  by  extending 
a  straight  line  by  using  the  slope  at  the  first  point  to 
intercept  the  next  ray  in  the  lens.  Since  the  second  point 
is  not  on  the  GLM  axis,  the  slope  at  the  second  point  required 
to  satisfy  Snell's  Law  will  not  be  equal  to  the  slope  of  the 
first  surface.  This  process  was  chosen  as  the  preferred 
method  and  is  discussed  in  Chapter  III  and  Appendix  A. 

The  second  method  of  generating  a  second  surface  for  a 
conical  lens  is  similar  to  the  first  method.  The  difference 
is  that  a  parabola  is  used  instead  of  a  straight  line  to 
predict  the  second  and  succeeding  points  on  the  second  sur¬ 
face.  A  different  parabola  is  used  for  every  pair  of  points. 

A  nonlinear  predictor  is  desired  because  the  shape  of  the 


second  surface  is  nonlinear.  The  following  discussion 
describes  this  method  of  second  surface  generation  for  a 
conical  lens. 

B.  ITERATIVE  SOLUTION 

0  (V 

1.  Derivation  of  Expressions  for  I  and  2 

The  iterative  solution  is  motivated  by  the  ability 
of  a  computer  to  perform  a  great  many  calculations  in  a 
small  amount  of  time.  Referring  to  figure  F-l  for  the  geome¬ 
try  and  symbol  definitions,  the  most  significant  steps  in 
the  iterative  solution  are: 

(1)  Initialization: 

(a)  Choose  a  focal  point  on  the  GLM  axis. 

(b)  Choose  am  initial  lens  point  Tl. 

(c)  Choose  an  initial  change  in  P2,  Ap2. 

(2)  Calculate  the  ray  parameters  P2  and  a 2 

for  the  initial  lens  point  by  applying  Snell's  Law  at  Tl. 

(3)  Calculate  the  second  lens  point  T2  by  fitting  a 
parabola  through  Tl  and  predict  the  coordinate  values  of  T2. 
Iterate  this  prediction  until  the  error  is  reduced  below  am 
acceptable  tolerance.  The  error  is  defined  to  be  the  distance 
at  which  T2  intercepts  the  GLM  axis. 

(4)  Calculate  the  ray  parameters  Qj.,  P2  and  012 

for  T2. 

(5)  Continue  until  the  lens  has  been  designed  to  the 
GLM  axis. 
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NOTE:  All  coordinate  values  are  referenced  to  a  right  hand 
system.  All  angles  are  referenced  to  the  GLM  axis 
and  are  positive  for  counter-clockwise  rotation  from 
the  axis  to  the  point  in  question.  The  coordinate 
values  (abscissa,  ordinate)  are  referred  to  as  (x,y) 
with  x  =  the  distance  along  the  GLM  axis  and  y  =  the 
radius  from  the  GLM  axis.  The  subscripts  are  either 
single  or  double.  The  single  and  the  first  subscript 
in  the  double  subscripts ,  the  number  refers  to  the 
surface  at  which  the  application  of  Snell's  Law 
occurred.  If  the  subscript  is  a  letter  the  subscript 
refers  to  the  operation  of  Snell's  Law;  I  for  angle  of 
incidence  and  R  for  angle  of  refraction.  The  second 
subscript  refers  to  the  point  number  in  the  lens. 

For  example  az ^  is  the  slope  of  the  second  surface 
at  point  number  two.  Any  exceptions  to  this  convention 
for  subscripts  will  be  made  clear  within  the  context 
of  the  discussion. 

The  investigation  consisted  of  deriving  the  analytical 
expressions  relating  the  quantities  shown  in  figure  F-2.  The 
primary  variables  of  interest  are  the  angle  of  incidence  6^., 
aj  the  angle  of  the  tangent  line  at  T  and  pz  the  refracted 
ray  angle  in  medium  3.  The  assumptions  made  in  the  derivation 
are  that  the  following  quantities  are  known: 

(1)  Pi;  the  ray  angle  in  the  lens  medium,  measured  with 
respect  to  the  GLM  axis. 
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(2}  p  2 ;  the  ray  angle  in  medium  3  measured  with  respect 
to  the  GLM  axis. 

(3)  n2 ;  the  index  of  refraction  of  the  lens  medium. 

(41  n3;  the  index  of  refraction  of  medium  3. 

(5)  f;  the  design  focal  point  on  the  GLM  axis. 

(6)  (x,y) ;  the  coordinate  values  of  the  Point  T. 

(7)  the  ray  is  transmitted  without  loss  in  all  media. 

(8)  the  ray  is  either  refracted  or  totally  reflected 

at  the  boundary  of  two  media. 

As  discussed  in  Chapter  III  there  exist  two  regions  where 
the  refracted  ray  in  the  lens  can  be  refracted  at  point  T. 

Point  T  is  located  in  the  low  region  as  defined  by  the  area 
below  a  line  QP  shown  in  figure  F-3.  In  the  low  region 
| p i |  is  always  greater  than  or  equal  to  | 0 [ .  Point  T  is 
located  in  the  high  region  when  |pi|  is  less  than  |$| 
as  shown  in  figure  F-4. 

Each  point  on  the  lens'  second  surface  must  satisfy  Snell's 
Law  sin0R  *  n2/n3  sinSj  or  be  totally  reflected  at  T.  There¬ 
fore  referring  to  figure  F-2  the  angle  of  incidence  in  the  low 
region  is 

0j  *  (  j  -  a»)  -  |  pi  |  (F-l) 

and  the  ray  angle  in  medium  3  is 
|  Pz  I  *  j  -  Or  +  02) 


» 

4 

I 


y 

4 

4 


4 


4i 

i 


(F-2) 


ws 
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Substracting  equation  (F-2)  from  tF-1)  and  substituting 


Snell's  Law  for  0R  yields 


Now  a  2 


P 2  I  -  | Pa |  -  arcsin 


j  -  C | P2 |  -  0R)  hence 


"n2 

in  —  sin6_ 

n3  Z1 


(F-3) 


7  ~  Q  P 2 1 


+  arcsin 


(kt  sinel)] 


(F-4) 


Equation  (F-3)  is  a  transcendental  equation  in  0X  and 
therefore  can  be  solved  graphically  or  by  numerical  methods. 
Therefore,  equations  (F-3)  and  (F-4)  must  both  be  solved  for 
each  iteration  of  0^  until  a  satisfactory  value  of  a2  is 
deteannined.  Experience  from  using  the  CHART  algorithm  shows 
that  an  initial  guess  of  0j  *  0c-2o  should  allow  the  algo¬ 
rithm  to  converge  quickly.  The  critical  angle  0  is  the 
angle  of  incidence  at  which  sin0R»l.  Changing  equations 
(F-3)  and  (F-4)  into  a  form  suitable  for  a  numerical  algorithm 


yields 


=  |  P 2 |  -  | Pi |  +  arcsin 


7-  [iP* 


+  arcsin 


In  ^  sin0T  I  (F-5) 

L  n3  x'nJ 

("-T  '^nj\  (F-6) 


for  the  angle  of  incidence  and  angle  of  the  tangent  line  at 
Point  T  in  the  low  region. 
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As  shown  in  figure  F-4  the  angle  of  incidence  in  the 
high  region  is 

9X  ®  I  Pa  I  —  I  Pi |  CF-7) 

and  the  ray  angle  in  medium  3  is 

P2  »  J  -  a2  +  0R  (F-8) 


Adding  equations  (F-7)  and  (F-8)  and  substituting  Snell’s 
Law  for  0R  yields 

TV 


0T  *  *  -  (  pi  +  02)  +  arcsin 


now  a  2  *  t  -  NORM 


,  /  n3  \ 

111  \rq  ain6I/) 


(F-9) 


hence 

az  =  J  -  | Pi |  +  0j  CF-10) 

Equation  (F-9)  is  a  transcendental  equation  in  and  must 

be  solved  graphically  or  by  numerical  methods.  Therefore 
equations  (F-9)  and  (F-10)  must  be  solved  for  each  iteration 
of  0J  until  a  satisfactory  value  of  02  is  determined. 
From  the  geometry  in  figure  F-4  an  initial  guess  for 
0j  *  2  | pi |  should  cause  fast  convergence  to  the  desired 
value  of  02.  Changing  equations  (F-9)  and  (F-10)  into  a 
form  suitable  for  numerical  applications  yields 


I,n+1*  7  “< I Pl I 


ot2  )  +•  arcsin 
ln 


/»,  \ 

in  1  sin0T  / 

n2  Ifn  ' 


o2 


'n+1 


U 

7 


-  I  pi  +  0 


I, 


n+1 


(F-ll) 

(F-12) 
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for  the  angle  of  incidence  and  angle  of  the  tangent  line  at 
Point  T  in  the  high  region. 

2.  Predicting  Succeeding  Points  on  the  Second  Surface 
The  iterative  solution  method  must  involve  a  regres¬ 
sion  routine  to  use  a  parabola  to  predict  the  next  point  on 
the  second  surface.  The  regression  routine  solves  a  set  of 
simultaneous  equations  consisting  of  the  equation  of  the 
parabola  and  first  derivative  at  T1Cx1,y1>  and  T2(x2,y2) 
in  the  form 

2 

a  +  bx  +  ex.  *  y, 

ill 

b  +  2cxn  *  y*. 

2  (F-13) 

a  +  bx2  +  cx2  =*  y2 

a  +  2cx2  =  y'2 


The  set  of  equations  is  nonlinear  in  x,  but  is  linear  in 
the  coefficients.  Therefore,  the  techniques  of  linear  algebra 
can  be  used  on  equation  (F-13) .  The  method  used  here  is  the 
Gaussian-Jordan  row-reduction  technique  discussed  in  Anton 
[10].  The  first  step  is  to  form  the  augmented  matrix  whose 


determinant  is  set  equal  to  zero 

2 


1 

0 

1 

0 


W1 

1 


“1 

2X] 

x2* 

2x, 


*1 

y'i 

*2 

y'2 


(F-14) 
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The  row-reduction  technique  diagonalizes  the  first  three 
columns  of  determinant  CP-14)  with,  in  general,  non-zero 
quantities  in  the  fourth  column  in  the  form 


1  0 


0  1 
0  0 
0  0 


0 

0 

1 


A 

B 

C 


=  0 


0  A 


(F-15) 


Since  four  equations  have  been  used  to  determine  the  three 
coefficients  a,  b  and  c  the  determinant  is  over-specified 
and  nonhomogeneous .  Utilizing  the  fact  that  the  expression 
represented  by  D  at  location  (4,4)  in  (F-15)  is  equal  to  zero 
D  -  x1y2l  -  Xjy^  +  x2y2'  -  x2y1’  -  2y2  +  2yx  -  0  (P-16) 

if  x2  ji  x^,  which  is  reasonable ,  since  the  problem  demands 
that  x2  jt  x^.  Simplifying  equation  (F-16)  and  solving  for 


*2  ~  *1 
X2  "  X1 


yields 


AY 

AX 


-Y 


1 

1 


(F-17) 


Equation  (F-17)  3tates  that  the  slope  of  the  straight  line 
connecting  Tl  and  T2  in  figure  F-5  is  the  average  of  the 
slope  of  the  parabola  used  to  predict  T2  evaluated  at  Tl  and 
T2.  This  result  is  very  simple,  yet  provides  a  tool  to  use 
in  predicting  the  value  of  T2.  Experience  gained  in  using 
CHART  has  shown  that  the  second  surface  of  the  conical  lens 
is  a  smooth  convex  surface  with  no  discontinuities;  compare 
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figures  14  and  20  in  Chapter  III.  The  exact  shape  of  the 
second  surface  is  a  function  of  the  cone  half-angle  a,  and 
the  indices  of  refraction  n1,n2  321(5  n3*  The  f*rst  guess 

of  where  T2  is  generated  by  coordinate  values  of  the  inter¬ 
section  of  the  ray  in  the  lens  and  the  ray  in  medium  3  is 
shown  in  figure  F-l.  The  set  of  equations  (F-13)  is  solved 
using  (x^  y^  and  (x2,y2)  to  find  (AY/AX)  in  equation 
(F-17) .  Since  the  slope  at  T1  is  known  the  next  guess  of  the 
actual  location  of  T2  is  aided  by  the  experience  of  using 
CHART.  The  slope  at  T2  will  increase  as  the  first  surface  is 
approached.  Therefore,  calculating  the  slope  of  the  line 
connecting  T1  and  T2  and  comparing  that  value  with  the  value 
from  equation  (F-17)  will  determine  whether  to  increase  or 
decrease  Ap2  to  predict  the  next  position  of  T2.  This 
procedure  is  continued  until  the  coordinate  values  of  T2 
are  determined  within  a  specified  tolerance. 

C.  NEWTON'S  METHOD 

The  recommended  numerical  method  used  to  solve  the  trans¬ 
cendental  equations  for  6^  and  a2  in  section  B-l  is 
Newton's  method.  A  detailed  explanation  of  the  technique  is 
not  provided  here.  Scores  of  texts  on  applied  numerical 
methods  exist  and  should  be  consulted  for  further  study. 

Newton's  method  is  simple  and  converges  quickly  if  the 
function  does  not  have  any  of  the  characteristics  illustrated 
in  figure  F-6.  If  the  function  describing  6^  exhibits  a 
local  minimum  in  the  range  of  interest,  Newton's  method  will 
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diverge  as  illustrated  in  figure  F-6a.  If  the  function 
exhibits  an  inflection  point,  Newton’s  method  will  diverge 
as  shown  in  figure  F-6b.  If  the  function  has  multiple  roots 
in  the  range  of  interest,  Newton's  Method  cannot  determine 
which  value  is  correct.  The  special  case  of  a  multiple  root 
is  shown  in  figure  F-6c.  Newton's  method  will  approach  the 
roots  from  one  side  then  overshoot  and  oscillate  back  and 
forth,  never  converging  on  the  desired  value.  A  function 
which  is  "well  behaved"  is  shown  in  figure  F-7;  compare  the 
characteristics  of  the  curve  in  figure  F-7  and  those  of  figure 


The  application  of  Newton's  method  as  shown  in  figure  F-7 

involves  the  selection  of  a  value  of  0^  as  the  first  guess 

0T  ,  finding  the  functional  value  f(0T  )  and  the  slope 
X1  *1 
f'(0_  ).  The  prediction  of  the  correct  value  of  0T  is  via 
I1  i2 
the  relation 


f(0T  ) 
X1 

7  (0,  ) 

A1 


(F-18) 


The  process  is  repeated  until  the  difference  between  two 

succeeding  values  of  0j,  |0j-0j  |  is  less  than  am 

n  n— 1 

acceptable  toleramce.  Transforming  equation  (F-18)  into 


general  form  yields 


f(0T  ) 
n 

f’(0,  ) 
n 


(F-19). 
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APPENDIX  G 


LIMIT  PROGRAM  DESCRIPTION  AND  LISTING 


The  derivation  of  the  relationship  between  the  slopes 
encountered  of  the  first  and  second  surfaces  of  a  GLM  lens 
composed  of  homogenous  material  by  the  ray  shown  in  figure 
G-l  is  the  subject  of  this  appendix.  The  derivation  is 
applicable  to  the  case  in  which  total  reflection  occurs  at 
the  second  surface. 


The  incident  ray  in  medium  1  forms  an  angle  8_  with 

1 


the  first  surface  normal  n,  at  point  T1  and  is  refracted 

according  to  Snell's  Law  sinS-  *  (n./nosin0T  .  The  first 
„  R1  1  2  X1 
surface  normal  n ,  is  defined  as  the  normal  to  the  tangent 

line  at  Tl.  The  angle  which  the  tangent  line  makes  with 

respect  to  the  GLM  axis  is  a*.  The  ray  traverses  the  lens 

and  intercepts  the  second  surface  at  T2.  The  ray  is  refrac¬ 


ted  at  T2  according  to  Snell's  Law  sin8. 


(n2/n3)  sinOj 


For  total  reflection  at  T2 


sin0 


R-, 


x  -  te) 


sin0. 


'2  2  *2 
Now  the  angular  difference  between 


and 


(G-l) 

is  (a  -  at) 


and  therefore  0. 


0O  +  (a-a2)  Bence 
R1 


0 


Rx  +  (a  -o2) 


arcsin 


fe) 


(G-2) 


The  angle  with  respect  to  the  GLM  axis  of  the  tangent  line  at 
T2,  at,  is  then  defined  by 


ssmsaziaae. 


O 
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a 2  *  arcsin 


Noting  that  0. 


sin  0. 


-  arcsin 


-  a  then 


arcsin  [ji  sin  ( J  -  a)]  -  arcsin  (  J.) 


Equation  LG-4)  is  illustrated  in  figure  G-2 


Tangent  Line  at  the  Firet  Surface  <  degree# 
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LIMIT  PROGRAM  LISTING 


II  MINI 

2 8  MINT  •*  a" 

3*  MINT  "a  UNIT  a* 

4#  MINT  “*  a" 

SI  MINT  "aaaataaaaaaaaaaaaaaaaaaaaaaaaaaataaaaaaaaaaaaaaaaaaaaaaaaaaeaaoaeooa" 
«•  DISP  "THIS  18  UNIT" 

78  UNIT  2988 

88  OPTION  BASE  8 

98  INTEGER  I , LI naeount , L i naaax 

188  DEC 

l  118  FIXED  2 

128  PRINTER  1$  18 

138  Ltnacount *8 

148  Ltnaaax-48 

138  Nt-l 

188  N3-1 

178  INPUT  "DO  YOU  WANT  A  HARD  COPY?  Y-'N'.YS 

188  IF  Y»-*Y"  THEN  PRINTER  IS  8 

198  C08UD  Haadar 

288  CALL  Graph 

218  FOR  N2-1.3  TO  4.3  STEP  .3 

228  Alpha-3 

238  That  ai  _1  -98-A1  pha 

248  Si n_thatar  l«Ml/'N2*SIM<Thetal_l  > 

238  ThaTar  l-ASN<Stn  thatarl)  “ 

288  A 1 pha2-A 1 pha* ASnTn 1 / N2*S I N  < 98- A 1 pha>  > - ASN  <  N3'N2 > 

278  That  at  _2-That  ar_l *A I pha-A I pha2 

288  IF  LTnacount >Lt naaax  THEN  GOSUD  Haadar 

298  PRINT  USING  418;N2, That at_l , That ar_l , Thatal_2, Alpha, A!pha2 
388  Llnacount-Ltnacountal  *’ 

318  HOVE  Alpha,Alpha2 

728  FOR  Alpha-3  TO  83  STEP  3 

338  That at  1-98-Alpha 

348  Stn_thatarl-Nl/N2»S!H<Thataf_!> 

398  Thatar  l-ASN<Stn  thatarl) 

388  A 1 pha2- A \ pha* ASnTn 1sN2*SI N  CThat  at  1 ) > - ASN  <  N3'N2 ) 

378  Thatal_2-Thatar_l*Alpha-Alpha2 

388  IF  Lt naeount >Lt naaax  THEN  GOSUD  Haadar 

398  PRINT  USING  418;N2,  That  at _1 ,Thatar_I , That at _2, Alpha, Alpha2 

488  Li naeount -LI naeount*!  "  ” 

418  IN AGE  3X, DD. DD, 3<3X, DDDD. ODD) 

428  DRAM  Alpha, Alpha2 

438  NEXT  Alpha 

448  LOIR  8 

498  LORG  2 

,  488  CSIZE  2.3 

478  LASEL  USING  488IN2 

i  488  IMAGE  K 

I  498  IF  L  t  naeount >L  t  na-ax  THEN  GOSUD  Haadar 

988  PRINT 

318  L t nac aunt -Lt naeount*! 

928  NEXT  N2 

338  GOSUD  Haadar  and 

348  PRINTER  IS  18  - 

938  PRINT  UN<2),  "PRESS  CONT" 

388  SEEP 

378  WAIT  298 

388  DEEP 

998  PAUSE 

888  EXIT  GRAPHICS 

818  GOTO  Ftntahad 

828  Haadar:  IF  Ltnacount >Lf  naaax  THEN  GOSUD  Haadar  and 

838  IF  Ltnacount >Ltnaaax  THEN  PRINT  PAGE) tXs<28> ; "TABLE  I  <COHT)*:LIN< 

2) 

848  IF  L I  naeount  <  -L  t  naaax  THEN  MINT  PAGE!  TAB(  33  >;  "TABLE  I  ";LIH<2> 

838  LI naeount -8 

888  PRINT  LIN<2> 
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(79  cotua  Char 

CM  MINT  LIN<t>;SPA<3>;‘  n2  ThatalCl)  ThataR(l)  Thatal<2> 

Nlph*  Alpha2*;LIN<l) 

CM  SOCU*  Char 

7M  MINT  LIN<2> 

719  RETURN 

72*  Char:  FOR  I-C  TO  79 

739  IF  I»79  THEN  PRINT  CHR*<229) 

749  IF  1-79  THEN  7C9 

7M  PRINT  CHR*<229>; 

7C9  NEXT  I 

779  RETURN 

799  Haadar  and:  PRINT  LIN<2> 

7M  *  ~  COCU8  Char 

9M  RETURN 

919  Bua|i  it:  PRINTER  IS  0 

929  ~  PRINT  CNR* < 27 >C •0  997" 

839  DUHP  GRAPHICS 

949  PRINT  CHR*(27>t*tl3CT* 

999  PRINTER  IS  tC 

9C9  RETURN 

979  Ftniahadl  Duap  ert*-*N* 

999  INPUT  *00  YOU  WANT  A  HARO  COPY  OF  THE  PLOT  7  YrN* , Duap_ert * 

CM  IF  <Buap  crt*-"Y*>  OR  (Sump  ert*»*y“>  THEN  GOSUB  Ouap  it 

9M  BI8P  'FINllNEB* 

919  ENB 

929  SUB  Graph 
9M  OPTION  BASE  9 
949  BEG 
9M  I 
M8 

979  I  THE  EXPRESSIONS  USES  TO  BIRIVC  THE  TIC  HARKS  HERE  OBTAIHEB  FROH  THE 
M9  I  HP-9949B  UTILITIES  LIBRARY,  TAPE  NR  89849-19299,  PROGRAH  'REGPLT* 

9M  I 

1919  CCLEAR 

1929  PLOTTER  IS  13, ‘GRAPHICS* 

1939  LBIR  9 
1949  LORE  9 
1999  LIHIT  9, 184,9, 1M 
19C9  I 

1979  BATA  -2,-1, 1.2 
19M  REAB  Ua,  Ba,  Ad,  Hu 
19M  BATA  . 39794,. C9897t.879M 
UN  REAB  Lo92.LooS.Lac7 
1119  I 

1129  Xorc-Xaln-Yorc-Yatn-9 
1139  Xaax-M 
1149  Yaax-M 

1199  Alpha:  INPUT  ‘MHAT  IS  TNI  HAXJHUH  VALUE  OP  ALPHA  <  DEFAULT  ■  99  DECREES)  7* 
f  Him* 

1 1C9  Alpha21  INPUT  *HNAT  IS  TNI  HAXIHUH  VALUE  OP  ALPHAS  (  DEFAULT  >  99  BECREES) 
7*,Yoa» 

1179  IP  Xaaa<-Xain  THEN  MSP 

UM  IP  Xaax< -Xain  THEN  BISP  ‘ALPHA  HU9T  BE  >  9.  PLSA9B  RE-ENTER  ALPHA.’ 

11M  IP  Xaax<-Xain  THEN  WAIT  29M 

1299  IP  Xaax<-Main  THIN  Alpha 

1219  IP  Yaax<«Yatn  THEN  BEEP 

1229  IP  Yaax<-Yain  THEN  BISP  *ALPNA2  BUST  BE  >  8.  PLEASE  RE-ENTER  ALPNA2. * 

1239  IF  Yaax<-Yatn  THEN  WAIT  29M 

1249  IP  Xaax<-Xain  THEN  Alpha2 

1299  GRAPHICS 

1299  I 

1279  LIHIT  9,194,9,149 
1299  LOCATE  29, 132,29,  IM 
12M  Lx-L6T<Xaax-Xain> 

1299  LyoLGTtYaaa-VatB) 


1310  Xf udga- . 02* <  Xaax-Xa 1 n  > 

1320  Yfudgaa.02*< Yaax-Yai n > 

1330  Ttcaarks:  Ta»t  xt  1  e*FRRCT<l_x  >  *<Lx<  »> 

1340  Tastytt<aRRRCT<Ly>*<Ly<0> 

1330  Xt  <e*10,'<  1NT<Lx>-1  >•<  1*1 . 3* <  <Ta*t xt  ic  >Log2)  AND  <Tastxt  1c<LogS>  >♦ 

4a<<Tastxttc>aLog3>  RHO  <Tastxt I c<>Log7) >♦*. SaCTattxt 1 e >Log7> > 

1300  Yt)ea10',<lHT<Ly)_l)*<l*1.3*<  (Tastyt  ( c  >Log2)  RNB  <Ta»tyt  i  c<Log3>  >♦ 

4»< (Tastyt (C >"Log5)  RHO  <Tastyt i c<«Log7> >*0. 3*<Ta*tyt 1 c >Log7> > 

1370  SealaS  3CRLE  X»in,Xaax+.23*R3S<Xt 1c>, Yaln, Yaaxf. 23*R3S< Yt 1 e > 

1300  CLIR  Xain,Xaax, Yain, Yaax 

1390  LINE  TYRE  3 

1400  XaajaYaajat 

1410  H1ntlC»txaa4 

1420  GRID  Xt 1 e , Yt  t  e , Xorg, Yorg, XaaJ , YaaJ , HI nt 1 csl za 

1430  LINE  TYRE  1 

1440  FRRHE 

1430  Lafealxi  LOIR  90 

1400  LORG  0 

1470  FOR  R-Xorg  TO  Xaax  STER  ROS<Xt1c> 

1400  HOVE  R, Yorg-Yf udga 

1490  LROEL  USING  1370; R 

1300  NEXT  R 

1310  L4b«ly:  LOIR  0 
1320  LORG  0 

1330  FOR  RaYorg  TO  Yaax  STER  ROS<Yt1e> 

1340  HOVE  Xorg-Xf udga , R 

1330  LROEL  USING  1370; R 

1300  NEXT  R 

1370  IIMGE  R.K 

1300  LROEL  USING  1390; •• 

1390  I URGE  y,K 

1000  Labal  :  SETGU 

1010  LOIR  0 

1020  LORG  3 

1030  Cantarxa72 

1040  Cant ary aC4 

1030  CS1ZE  3 

1000  HOVE  Cantarx, 10 

1070  LROEL  *Rlaha  !  Rnglt  of  tha  Tangant  Lina  at  tha  First  Surfaca  (  dag 

raas  »• 

1000  LOIR  90 

1090  HOVE  1.43, Cant ary 

1700  LROEL  *RlRha2  :  Angla  of  tha  Tangant  Lino* 

1710  HOVE  0.43, Cantary 

1720  LROEL  *at  tha  Sacond  Surfaca  <  dagraas  >* 

1730  LOIR  0 

1740  C012E  13X4.94 

1730  SETUU 

1700  SU0SX1T 
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